如何修改Word多词高亮宏以仅匹配完整单词

嘿，我瞅了你的问题和代码，发现你其实已经写了.MatchWholeWord = True，但为啥还是会匹配单词里的片段呢？问题出在.MatchAllWordForms = True这个设置上——它会覆盖完整单词匹配的逻辑，还会自动去匹配目标单词的各种变形（比如搜"be"会连"is""are"都找出来），这就导致非完整单词的片段也被误匹配了。

给你调整后的代码，关键改了两处，还补了个收尾的细节：

Sub HiLightList()
    Application.ScreenUpdating = False
    Dim StrFnd As String, Rng As Range, i As Long, wordList As Variant
    
    ' 定义要高亮的单词列表，用逗号分隔
    StrFnd = "as,the,bold"
    wordList = Split(StrFnd, ",") ' 转成数组，可读性更好
    
    For i = LBound(wordList) To UBound(wordList)
        Set Rng = ActiveDocument.Range
        With Rng.Find
            .ClearFormatting
            .Text = wordList(i)
            .Replacement.ClearFormatting
            .Replacement.Highlight = True
            .Replacement.Text = "^&" ' 保留原文本，只加高亮
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False ' 不区分大小写，需要的话改成True
            .MatchWholeWord = True ' 关键：仅匹配完整单词
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False ' 这里改成False，关闭单词变形匹配
            .Execute Replace:=wdReplaceAll ' 确保替换所有匹配项，你原来的代码这里没写完
        End With
    Next i
    
    Application.ScreenUpdating = True ' 恢复屏幕更新，避免Word卡顿
End Sub

几个关键点说明： #

• 把.MatchAllWordForms = True改成False：彻底关闭单词变形匹配，让.MatchWholeWord = True生效，只会匹配独立的完整单词
• 新增了wordList数组：把字符串转成数组循环，比每次Split更高效，可读性也更好
• 补上了Application.ScreenUpdating = True：宏运行前关闭屏幕更新是好习惯，但运行完一定要恢复，不然Word界面会僵住
• 补全了.Execute Replace:=wdReplaceAll：你原来的代码这里没写完，确保一次性替换所有匹配项

如果之后需要区分大小写，只要把.MatchCase = False改成True就行，这样只有大小写完全一致的完整单词才会被高亮~

备注：内容来源于stack exchange，提问作者James