论文部分内容阅读
相信很多朋友都知道，在使用了标题样式之后，我们可以使用“文档结构图”进行管理和快速跳转，对于Word 2007而言，可以切换到“视图”选项卡，勾选“文档结构图”复选框，即可显示如图中所示的内容。不过，如果因为制作论文摘要、或者目录等，而需要获取文档结构图的文本内容时，又该如何操作呢？
方法一：使用目录域
按下“Ctrl+Home”组合键，定位到文档的最前面，按下回车键插入一个空行。按下“Ctrl+F9”组合键插入一对大括号的域代码，手工键入如下代码：TOC \o "1-9" \u \n
右击域，从快捷菜单中选择“刷新域”，很快会在文档的最前面显示文档空白图的文本内容。
方法二：使用VBA代码
如果你不喜欢使用目录域，那么可以使用VBA代码的方法。按下“Alt+F11”组合键打开Microsoft Visual Basic编辑器窗口，依次执行“插入→模块”在右侧窗格中插入一个模块，手工输入如下代码：
Sub test()
Dim i As Paragraph, myInfo As String
ActiveDocument.ConvertNumbersToText
For Each i In ActiveDocument.Content.Paragraphs
If i.OutlineLevel < 10 And i.Range.Information(wdWithInTable) = False Then
myInfo = myInfo & i.Range
End If
Next
Documents.Add.Content = myInfo
End Sub
单击工具栏上的“保存”按钮保存代码，依次执行“文件→关闭并返回到Microsoft Word”，返回Word主界面之后，按下“Alt+F8”组合键打开“宏”对话框，选中宏之后单击右侧的“运行”按钮，很快会自动创建一个新文档，其中的内容就是我们所需要的文档结构图。
(文/王志军)
网络大补贴
以上代码可以到小编的博墅上访问获得，网址http://shell.blog.cfan.com.cn。
方法一：使用目录域
按下“Ctrl+Home”组合键，定位到文档的最前面，按下回车键插入一个空行。按下“Ctrl+F9”组合键插入一对大括号的域代码，手工键入如下代码：TOC \o "1-9" \u \n
右击域，从快捷菜单中选择“刷新域”，很快会在文档的最前面显示文档空白图的文本内容。
方法二：使用VBA代码
如果你不喜欢使用目录域，那么可以使用VBA代码的方法。按下“Alt+F11”组合键打开Microsoft Visual Basic编辑器窗口，依次执行“插入→模块”在右侧窗格中插入一个模块，手工输入如下代码：
Sub test()
Dim i As Paragraph, myInfo As String
ActiveDocument.ConvertNumbersToText
For Each i In ActiveDocument.Content.Paragraphs
If i.OutlineLevel < 10 And i.Range.Information(wdWithInTable) = False Then
myInfo = myInfo & i.Range
End If
Next
Documents.Add.Content = myInfo
End Sub
单击工具栏上的“保存”按钮保存代码，依次执行“文件→关闭并返回到Microsoft Word”，返回Word主界面之后，按下“Alt+F8”组合键打开“宏”对话框，选中宏之后单击右侧的“运行”按钮，很快会自动创建一个新文档，其中的内容就是我们所需要的文档结构图。
(文/王志军)
网络大补贴
以上代码可以到小编的博墅上访问获得，网址http://shell.blog.cfan.com.cn。