如何從word文檔中提取使用特定樣式格式的文本？

Question

我有一個非常長和複雜的單詞文檔（200多頁），並且想要提取所有使用某種樣式格式化的內容，同時跳過文檔的其餘部分。只要你只需要找到一種風格就很容易 - 但我正在尋找一種可以提取各種風格（即所有標題和所有格式爲style2的文本）的解決方案。

Answer 1

如果您可以設法將所有測試複製到另一個文檔，然後運行這個很好，但這是一個很好的開始 - 這是如何循環並刪除所有不是您想要保留的樣式的所有內容。

你可以做一些if語句，而不是檢查每個樣式，但是使用所有OK樣式的字符串並使用instr是很好的。

Sub DeleteUnwatedFormats() 

Dim para As Paragraph 

Dim okStyles As String 
okStyles = "Normal, Heading1, Heading2" 'list up ok styles 

For Each para In ActiveDocument.Paragraphs 
    If InStr(1, okStyles, para.Style) = 0 Then 
     para.Range.Delete 
    End If 
Next 

End Sub 

Answer 2

我試圖運行上面給出的代碼，但它刪除了一切 - 我認爲在行：

If InStr(1, okStyles, para.Style) = 0 Then 

okStyles和para.Style周圍應換給：

If InStr(1, para.Style, okStyles,) = 0 Then 

當我這樣做，它工作得很好。