使用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錯誤，如果調用在大綱視圖中活躍的文檔，這使得迭代一個字輪廓出口而不是一個孔。您必須切換視圖（該視圖也不會直接編寫腳本），然後切換回來。希望節省別人浪費時間...