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

Answer 2

这是另一个非常相似的解决方案，可能对其他人有帮助。接受的答案确实可以捕获文档中的所有单词，包括页眉，页脚等，而此答案只能捕获文档“主要”区域中的单词。

For Each para In ActiveDocument.Paragraphs
    For Each wrd In para.Range.Words
        Debug.Print wrd
    Next wrd
Next para

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

2 个答案: