Question

vba处理word获取各级标题及内容

这里有一个word相关的问题，请大家帮忙看看吧，谢谢啦
----------------文档-----------------
标题
1 大标题
1.1 次级标题
1.1.1 菜单
内容
1.1.2
。。。
1.2
。。。
2
。。。
----------------结束-----------------
想要获取对应的各个‘菜单’和‘内容’，请问应该怎么处理？

Answer 1

两种可行的思路：
1、利用正则表达式提取；
2、利用VBA编程提取

追问

- -你好。。我的问题是如何写vba脚本。。能给个具体一点的例子么？谢谢了

追答

这里有一个例程，你可以参考一下：

Sub H_Aces() ''本段过程用于取得文中的题目（赋值给ar）与内容（赋值给br） 
 On Error Resume Next 
 x = 0 
 y = 0 
 ar = "" 
 br = "" For 
 Each y1 In ActiveDocument.Paragraphs 
 x = x + 1 
 t = ActiveDocument.Paragraphs(x).Style 
 If t = "标题 3" And y <> 1 Then 
 ar = ActiveDocument.Paragraphs(x).Range'''''''取得题目 
 y = y + 1 ''本变量用于确定是否循环到了下一个标题开始的地方。 
 ElseIf t = "文字块" Then 
 br = br & Chr(13) & ActiveDocument.Paragraphs(x).Range'取各段落Else If ar <> "" And br <> "" Then''''由于文中有空段落所以要这个判断 
 debug.print ar & "==>" & br 
 y = 0 
 ar = "" 
 br = "" 
 End If 
 End If 
Next
End Sub

Answer 2

插入超链接

追问

= =..这个您的回答离得有点远