MS Word VBA副词高亮代码优化：实现高亮单词数量统计

原代码的核心问题 #

• 未初始化变量i且缺少循环逻辑，无法遍历搜索列表（后续扩展搜索词时会失效）
• 计数逻辑错误：cnt = cnt + 1仅执行一次，完全无法反映实际被高亮的单词数量
• 通配符表达式<[! ][! ]@ly>匹配逻辑不精准，可能误匹配非单词类内容

修正后的代码 #

Sub Adverbs()
    Application.ScreenUpdating = False
    Dim i           As Integer
    Dim cnt         As Long ' 改用Long避免大文档计数溢出
    Dim color       As Integer
    Dim msg         As String
    Dim slist       As String
    Dim title       As String
    Dim hilite      As String
    Dim rng         As Range
    Dim SearchList() As String

    '-- User assigned data ------------
    slist = "<[A-Za-z]@ly>" ' 精准匹配以ly结尾的英文单词
    title = "Adverbs"
    color = wdBrightGreen
    hilite = "Bright-green"
    
    '-- Code assigned variables ------
    cnt = 0
    SearchList = Split(slist, ",")
    Options.DefaultHighlightColorIndex = color
    
    '-- Search, highlight and count items ------
    For i = LBound(SearchList) To UBound(SearchList)
        If Trim(SearchList(i)) <> "" Then
            Set rng = ActiveDocument.Range
            With rng.Find
                .Text = SearchList(i)
                .Forward = True
                .MatchWildcards = True
                .Wrap = wdFindStop
                .Format = False
                ' 循环查找所有匹配项，逐个高亮并计数
                Do While .Execute
                    rng.HighlightColorIndex = color
                    cnt = cnt + 1
                    rng.Collapse wdCollapseEnd ' 定位到当前匹配项末尾，继续查找下一个
                Loop
            End With
        End If
    Next i
    
    '-- 返回文档顶部
    Selection.HomeKey Unit:=wdStory
    Application.ScreenUpdating = True

    '-- 弹出结果提示框
    msg = "The " & title & " script finished highlighting ->" & cnt & "<- words/phrases in " & hilite & "."
    MsgBox msg, vbInformation
End Sub

关键修改说明 #

1. 准确计数逻辑：通过Do While .Execute循环遍历所有匹配项，每找到一个就将计数cnt加1，确保统计的是实际被高亮的单词总数
2. 搜索列表遍历：添加For循环遍历拆分后的搜索词数组，后续如需添加更多匹配规则，只需修改slist变量即可
3. 精准通配符：将原表达式改为<[A-Za-z]@ly>，仅匹配由英文字母组成、以ly结尾的单词，避免误匹配包含空格或特殊字符的内容
4. 变量类型优化：将cnt从Integer改为Long，处理超大型文档时不会出现整数溢出问题
5. 高效高亮方式：直接设置匹配范围的HighlightColorIndex属性，替代替换式高亮，逻辑更简洁且避免不必要的文档修改

内容的提问来源于stack exchange，提问作者Amilcar Hernandez