如何遍历word文档中的每个单词 - VBA宏

Question

我知道如何获得word文档中的每个段落.但我正在寻找一种循环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