VBA怎样读取WORD文档自动生成的目录信息呢如题

展开全部 Option Base 1Sub 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上面是在CSDN重找的代码，楼主可以参考一下...

word里面如何自动生成目录

看看下面的文字就懂了。

word的目录制作一般经过2个步骤： 1、先设置word内容的标题（就是字体左侧那个框框里面 标题1、标题2、标题3）。

设置好一个后，再对你格式进行编辑，如黑体，小三号、段前段后间距0.5行，单倍行距。

然后选中标题，双击格式刷，再刷下面的同等级标题，统一格式。

2级、3级标题同理设置。

这里的技巧就是用到了格式刷。

2、然后插入引用→索引和目录→目录，选择一种格式。

剩下的就没有问题了。

如果还看不懂，还可看看参考文献：下载大侠在线编辑制作的word排版技巧复制或单击以下网址即可http://ishare.iask.sina.com.cn/f/6362103.html本人自己编写的，有截图，应该能看懂。

或者看看毕业论文模板http://ishare.iask.sina.com.cn/f/5177937.html大侠在线2010年6月28日

word2003如何自动生成目录

首先我们打开要编辑的WORD的文档 把光标放在首页的第一行点击菜单栏上的“插入” 然后点击“引用”，在点击“索引和目录”在索引和目录的窗口里点击“目录” 设置好之后，点击“确定”完成上面的操作之后，就可以设置好索引目录了

转载请注明出处51数据库 » word vba自动生成目录