如何用VBA在Microsoft Word中仅遍历真正的单词？

方法1：使用Find对象精准匹配 #

Word的Find功能内置了语言规则匹配，能直接识别带连字符的完整单词，自动跳过标点、段落标记、空白等无效内容，是最可靠的方案。

代码示例：

Sub GetRealWords()
    Dim doc As Document
    Dim findRange As Range
    Dim realWords As Collection
    Set doc = ActiveDocument
    Set realWords = New Collection
    Set findRange = doc.Content
    
    With findRange.Find
        .ClearFormatting
        .Text = "<[A-Za-zÀ-ÿ-]@>" ' 匹配含字母、连字符的单词，可按需扩展字符范围
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop
        
        Do While .Execute
            ' 排除纯连字符的无效项
            If Trim(findRange.Text) <> "-" Then
                realWords.Add findRange.Text
            End If
            ' 移动查找范围，避免重复匹配
            findRange.Collapse wdCollapseEnd
        Loop
    End With
    
    ' 输出结果（可替换为其他业务逻辑）
    Dim wordItem As Variant
    For Each wordItem In realWords
        Debug.Print wordItem
    Next wordItem
End Sub

说明：通配符<[A-Za-zÀ-ÿ-]@>中，<>代表单词边界，[A-Za-zÀ-ÿ-]定义允许的字符（含大小写字母、重音字母、连字符），@表示匹配一个或多个前序字符。如果需要支持数字，只需在方括号内添加0-9。

方法2：过滤Words集合（兼容原有遍历逻辑） #

如果坚持使用Words集合遍历，可通过内容检查过滤无效项，同时合并被拆分的连字符单词：

Sub FilterRealWords()
    Dim doc As Document
    Dim wd As Range
    Dim realWords As Collection
    Set doc = ActiveDocument
    Set realWords = New Collection
    
    For Each wd In doc.Words
        Dim txt As String
        txt = Trim(wd.Text)
        ' 排除空白、纯标点、段落标记等无效内容
        If txt <> "" And Not txt Like "[!A-Za-zÀ-ÿ-]" Then
            ' 处理被拆分的连字符单词，合并到前一个有效单词
            If Left(txt, 1) = "-" And realWords.Count > 0 Then
                Dim mergedWord As String
                mergedWord = realWords(realWords.Count) & txt
                realWords.Remove realWords.Count
                realWords.Add mergedWord
            Else
                realWords.Add txt
            End If
        End If
    Next wd
    
    ' 输出结果
    Dim wordItem As Variant
    For Each wordItem In realWords
        Debug.Print wordItem
    Next wordItem
End Sub

说明：这个方法先过滤非目标字符内容，再将单独的连字符片段合并到前一个有效单词，还原带连字符的完整词。但相比Find方案，需要手动处理更多特殊场景（比如连续标点、多重连字符）。

内容的提问来源于stack exchange，提问作者Krubkj lkjlökg