如何遍歷word文檔中的每個單詞 - VBA宏

Question

我知道如何獲取單詞文檔中的每個段落。但我正在尋找一種方法來循環訪問MS Word文檔中的每個單詞。

Sub Sample() 

Dim apara As Paragraph 
Dim lineText As String 


For Each apara In ActiveDocument.Paragraphs 

     lineText = apara.Range 

    'Now print the paragraph 

     Debug.Print lineText 

Next apara 

End Sub 

Answer 1

For Each sentence In ActiveDocument.StoryRanges 
    For Each w In sentence.Words 
     Debug.Print w 
    Next 
Next