Word宏运行报错5560：无效模式匹配表达式修复求助

错误5560的根源是宏里开启了MatchWildcards=True，但段落文本中包含*、?、[、]这类通配符特殊字符——Word会把这些字符当作正则表达式语法解析，而非普通文本，导致匹配规则失效。

解决方法是给要查找的文本做通配符转义处理，把特殊字符转换成Word查找功能能识别的普通文本。以下是修改后的完整宏代码：

Sub DemoA()
Application.ScreenUpdating = False
Options.DefaultHighlightColorIndex = wdYellow
Dim RngA As Range, RngB As Range, i As Long, j As Long, strFnd As String, strTmp As String
With ActiveDocument
  For i = 2 To .Paragraphs.Count - 1
    Set RngA = .Paragraphs(i - 1).Range
    Set RngB = .Range(.Paragraphs(i).Range.Start, .Range.End)
    With RngA
      strFnd = Trim(Split(.Text, vbCr)(0))
      If Len(strFnd) > 0 Then
        If .HighlightColorIndex <> wdYellow Then
          If Len(strFnd) > 255 Then
            strTmp = Left(strFnd, 255)
            With RngB
              With .Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = EscapeWildcards(strTmp) ' 转义通配符
                .Format = True
                .Forward = True
                .Wrap = wdFindStop
                .MatchWildcards = True
                .Execute
                If .Found = True Then RngA.HighlightColorIndex = wdBrightGreen
              End With
              Do While .Find.Found = True
                If Trim(Split(.Paragraphs.First.Range.Text, vbCr)(0)) = strFnd Then
                  .Paragraphs.First.Range.HighlightColorIndex = wdYellow
                End If
                .Collapse wdCollapseEnd
                .Find.Execute
              Loop
            End With
          Else
            With RngB.Find
              .ClearFormatting
              .Replacement.ClearFormatting
              .Text = EscapeWildcards(strFnd) ' 转义通配符
              .Replacement.Text = "^&"
              .Replacement.Highlight = True
              .Format = True
              .Forward = True
              .Wrap = wdFindStop
              .MatchWildcards = True
              .Execute Replace:=wdReplaceAll
              If .Found = True Then RngA.HighlightColorIndex = wdBrightGreen
            End With
          End If
        End If
      End If
    End With
    If i Mod 100 = 0 Then DoEvents
  Next
End With
Application.ScreenUpdating = True
End Sub

' 通配符转义函数
Function EscapeWildcards(strText As String) As String
    Dim arrSpecialChars As Variant
    Dim char As Variant
    ' Word查找通配符中的特殊字符列表
    arrSpecialChars = Array("*", "?", "[", "]", "{", "}", "(", ")", "\", "+", "-", "^")
    For Each char In arrSpecialChars
        strText = Replace(strText, char, "\" & char)
    Next char
    EscapeWildcards = strText
End Function

关键修改说明 #

• 新增EscapeWildcards函数：遍历所有Word查找通配符的特殊字符，在每个特殊字符前添加反斜杠\，让Word把它们当作普通文本处理。
• 在两处设置查找文本的地方，用转义后的文本替代原文本，确保包含特殊字符的段落也能正常匹配，不会触发语法错误。
• 保留原宏的所有核心逻辑，包括长段落（超过255字符）的分段处理和高亮规则，适配40000词的大文档场景。

内容的提问来源于stack exchange，提问作者J.L.