Word批量高亮列表内容的VBA宏运行缓慢，求优化提速方案

问题背景 #

现有宏可实现从指定文档读取关键词列表，在Word选中范围内高亮匹配的整词，但面对4000+关键词、150页文档时运行速度偏慢，需优化。

核心优化思路 #

原宏的最大性能瓶颈是循环4000次执行Find操作，每次Find都要重新扫描文档，开销极大。优化核心是用Word的通配符批量匹配，将所有关键词整合成一个表达式，仅执行1次Find+Replace操作，同时清理无效关键词、关闭更多后台功能进一步提速。

优化后的代码 #

Sub Optimized_Highlighter()
    Dim FRDoc As Document, FRList() As String, cleanedList As Collection
    Dim i As Long, wildcardPattern As String, aRng As Range
    ' 关闭所有可能拖慢速度的Word功能
    Application.ScreenUpdating = False
    Application.DisplayAlerts = wdAlertsNone
    Application.AutoSaveOn = False
    Options.DefaultHighlightColorIndex = wdBrightGreen
    
    ' 读取关键词文档并初始化集合去重
    Set FRDoc = Documents.Open("C:\path.docx", ReadOnly:=True, AddToRecentFiles:=False, Visible:=False)
    FRList = Split(FRDoc.Range.Text, vbCr)
    FRDoc.Close False
    Set FRDoc = Nothing
    
    Set cleanedList = New Collection
    ' 清理空字符串并去重
    On Error Resume Next ' 捕获重复项错误，跳过重复关键词
    For i = 0 To UBound(FRList)
        Dim keyword As String
        keyword = Trim(FRList(i))
        If keyword <> "" Then
            cleanedList.Add keyword, Key:=keyword ' Key参数用于去重
        End If
    Next i
    On Error GoTo 0 ' 恢复错误捕获
    
    ' 构建通配符表达式：用|分隔所有关键词，\<和\>表示匹配整词
    For i = 1 To cleanedList.Count
        wildcardPattern = wildcardPattern & "\<" & cleanedList(i) & "\>|"
    Next i
    ' 去掉最后多余的|
    If Len(wildcardPattern) > 0 Then
        wildcardPattern = Left(wildcardPattern, Len(wildcardPattern) - 1)
    End If
    
    ' 执行批量高亮
    Set aRng = Selection.Range
    With aRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .MatchWildcards = True ' 启用通配符
        .MatchWholeWord = False ' 通配符模式下用\<\>控制整词匹配，这里设为False
        .MatchCase = False
        .Wrap = wdFindStop
        .Text = wildcardPattern
        .Replacement.Text = "^&"
        .Replacement.Highlight = True
        .Execute Replace:=wdReplaceAll
    End With
    
    ' 恢复Word默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = wdAlertsAll
    Application.AutoSaveOn = True
End Sub

优化点说明 #

• 通配符批量匹配：将所有关键词整合成\<关键词1\>|\<关键词2\>|...的通配符表达式，一次Find操作完成所有整词匹配，彻底消除4000次循环的开销，这是提速的核心。
• 关键词去重+清理：去掉空字符串和重复关键词，减少匹配的无效计算，避免重复高亮同一内容。
• 关闭更多后台功能：额外关闭DisplayAlerts和AutoSaveOn，减少Word在宏运行时的弹窗、自动保存等后台操作，进一步降低资源占用。
• 简化Range操作：复用同一个Range对象，避免不必要的对象创建和释放。

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