使用VBA查找Office 2010 Word文档的大纲级别

Question

我创建了一个VBA宏来验证提交的文档，但似乎无法找到一种方法来检查文档的大纲级别作为整个。我需要的是一种方法来说明在大纲功能区1-9或所有级别中选择的大纲级别。

Answer 1

Word文档的.OutlineLevel属性可以应用于Paragraph，Paragraphs或Paragraphs Collection对象。它是一个枚举值，可以取值wdOutlineLevel1-9或wdOutlineLevelBodyText。

要找到OutlineLevel文档中的第一款，使用方法：

Dim currOutlineLevel 

With ActiveDocument 
    currOutlineLevel = .Paragraphs(1).OutlineLevel 
End With 

Answer 2

设置你追求的是未存储在文件中的应用程序设置。

您可以使用下面的VBA代码设置特定的级别：

ActiveWindow.ActivePane.View.Type = wdOutlineView 
ActiveWindow.View.ShowHeading 6 

Answer 3

请注意，调用第（x）的.OutlineLevel错误，如果调用在大纲视图中活跃的文档，这使得迭代一个字轮廓出口而不是一个孔。您必须切换视图（该视图也不会直接编写脚本），然后切换回来。希望节省别人浪费时间...