Word-VBA读取文档目录
2018-01-15 12:53
330 查看
Sub Test()
Dim ol_Par(), myPar As Paragraph, i_OL As Integer, i_Count As Integer, i_Temp As Integer, str_Temp As String
If Not ActiveWindow.DocumentMap Then
If MsgBox("文档结构图没有打开,你要打开它吗?", 1) = 1 Then
ActiveWindow.DocumentMap = True
Else
Exit Sub
End If
End If
For Each myPar In ActiveDocument.Paragraphs
i_OL = myPar.OutlineLevel
If i_OL < 10 Then
i_Count = i_Count + 1
ReDim Preserve ol_Par(2, i_Count)
ol_Par(1, i_Count) = i_OL
Set ol_Par(2, i_Count) = myPar.Range
End If
Next
For i_Temp = 1 To i_Count
MsgBox "文档结构图中第" & i_Temp & "行文字为:" & ol_Par(2, i_Temp) & "大纲级别为:" & ol_Par(1, i_Temp) & "级"
str_Temp = str_Temp & ol_Par(2, i_Temp)
Next
MsgBox "文档结构图中的所有文字为:" & str_Temp
End Sub
Dim ol_Par(), myPar As Paragraph, i_OL As Integer, i_Count As Integer, i_Temp As Integer, str_Temp As String
If Not ActiveWindow.DocumentMap Then
If MsgBox("文档结构图没有打开,你要打开它吗?", 1) = 1 Then
ActiveWindow.DocumentMap = True
Else
Exit Sub
End If
End If
For Each myPar In ActiveDocument.Paragraphs
i_OL = myPar.OutlineLevel
If i_OL < 10 Then
i_Count = i_Count + 1
ReDim Preserve ol_Par(2, i_Count)
ol_Par(1, i_Count) = i_OL
Set ol_Par(2, i_Count) = myPar.Range
End If
Next
For i_Temp = 1 To i_Count
MsgBox "文档结构图中第" & i_Temp & "行文字为:" & ol_Par(2, i_Temp) & "大纲级别为:" & ol_Par(1, i_Temp) & "级"
str_Temp = str_Temp & ol_Par(2, i_Temp)
Next
MsgBox "文档结构图中的所有文字为:" & str_Temp
End Sub
相关文章推荐
- 使用VBA把excel里所有sheets按顺序一次性copy到Word文档(选定特定列)
- word文档内容读取检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件失败,原因是出现以下错误: 80070005 拒绝访问。
- Word文档的读取,WordToHtml(Android)
- VC读取Word文档
- VBA编程一例:解决WORD文档无法显示链接的图像问题
- python网络爬虫文档读取-微软Word文档和.docx
- java读取word文档
- 获取Word目录结构、合并Word文档
- word如何自动生成目录-----如何写软件文档
- 将word文档按分页另存为多个word文件的VBA代码
- 打开 删除指定目录下的word文档
- 在PHP中读取和写入WORD文档的代码
- Javascript利用VBA编辑Word文档
- 读取shp属性表导出为excel表格和写入word文档
- Word文档转PDF时保留目录与链接方法
- word文档自动生成目录
- word文档生成目录
- word文档创建目录
- VBA 读取数据创建选择分支,输出txt文档
- VC读取Word文档