如何在Microsoft Word中通过VBA脚本搜索并高亮多个术语？

你好！针对你遇到的「单术语限制+Word崩溃」问题，我整理了一个简单的修复方案，既能支持多术语批量搜索高亮，又能解决之前的崩溃隐患：

修改后的完整脚本 #

Sub UsingTheFindObject_Medium()
    'Declare Variables.
    Dim wrdFind As Find
    Dim wrdRng As Range
    Dim wrdDoc As Document
    Dim searchTerms As Variant
    Dim term As Variant
    
    ' 定义需要搜索的多个术语（可按需增删，支持10个以上）
    searchTerms = Array("Test", "Apple", "Banana", "Orange", "Grape", "Mango", "Peach", "Pear", "Cherry", "Blueberry")
    
    'Grab the ActiveDocument.
    Set wrdDoc = Application.ActiveDocument
    'Define the Content in the document
    Set wrdRng = wrdDoc.Content
    'Define the Find Object based on the Range.
    Set wrdFind = wrdRng.Find
    
    ' 逐个处理每个搜索术语
    For Each term In searchTerms
        ' 重置搜索范围和参数，避免残留状态引发问题
        Set wrdRng = wrdDoc.Content
        wrdFind.ClearFormatting
        wrdFind.Replacement.ClearFormatting
        
        'Define the parameters of the Search for current term
        With wrdFind
            .Text = term
            .Format = True
            .MatchCase = False
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Wrap = wdFindStop ' 防止搜索到文档末尾后循环回到开头，避免无限循环
        End With
        
        ' 执行搜索并高亮匹配内容
        Do While wrdFind.Execute = True
            'Change the color to Yellow.
            wrdRng.HighlightColorIndex = wdYellow
            ' 将搜索范围移到当前匹配项之后，避免重复高亮同一内容
            wrdRng.Collapse wdCollapseEnd
        Loop
    Next term
End Sub

关键修复说明 #

• 多术语支持：用Array()批量定义所有需要搜索的术语，通过For Each循环逐个处理，彻底解决原脚本只能识别最后一个术语的问题。
• 解决Word崩溃：
  • 每次处理新术语时重置搜索范围为整个文档，避免范围混乱导致的内存异常；
  • 新增.Wrap = wdFindStop，防止搜索到文档末尾后自动回到开头引发无限循环；
  • 每次匹配后调用wrdRng.Collapse wdCollapseEnd，将搜索范围移到当前匹配项之后，避免重复处理同一内容，降低内存占用。
• 参数重置：调用ClearFormatting确保每次搜索的格式参数不受上一次搜索的残留影响。

使用提示 #

• 直接修改searchTerms数组里的内容即可添加/删除搜索术语，数量没有限制；
• 若要更换高亮颜色，可把wdYellow改成其他枚举值，比如wdGreen、wdRed等。

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