Word VBA：为什么我突然收到 .Execute FindText 的“模式匹配表达式无效”错误？

如何解决Word VBA：为什么我突然收到 .Execute FindText 的“模式匹配表达式无效”错误？

这是昨天运行良好的代码：

Sub TestError()

Dim Error As Integer

    With Selection.Find
      .ClearFormatting
      .Font.Bold = True
      .Execute FindText:="Error! Reference source not found."

        If .Found = True Then
           Error = MsgBox("Reference Source error detected - continue with macro?",4)
              If Error = 7 Then
              Exit Sub
             End If
         End If

    End With

End Sub

它应该是一段简单的代码，用于搜索“错误！未找到参考源。”，如果文档包含该字符串，则它会发出警告并询问用户是否要继续。昨天工作正常，现在它在 .Execute FindText 行上抛出“查找内容文本包含无效的模式匹配表达式”。通常这个错误来自于带有一组未闭合的括号或其他东西的通配符搜索。知道为什么会突然发生这种情况以及如何解决吗？

（尝试关闭和打开）

干杯:)

解决方法

问题很可能是您之前做了一个通配符查找并且没有重新设置（尽管您说的是相反的）：

Sub TestError()
Dim Error As Long
With Selection.Find
  .ClearFormatting
  .Font.Bold = True
  .MatchWildcards = False
  .Text = "Error! Reference source not found."
  .Execute
  If .Found = True Then
    Error = MsgBox("Reference Source error detected - continue with macro?",4)
    If Error = 7 Then Exit Sub
  End If
End With
End Sub