“运行时错误 5692”是什么意思？意思是？

Question

在某些情况下，range.Find.Execute 会抛出错误“运行时错误 5692”，包括有时当范围为空时，有时当使用正则表达式搜索完成时格式错误的正则表达式。

这个错误是什么意思？错误是否记录在任何地方？以我的无知来说，这是不可预测的。

Answer 1

根据我对 Word 2007（在 Crossover FWIW 下）的测试，我认为当“查找”文本 (Find.Text) 包含 Find.MatchWildcards 标志的无效字符时，就会发生这种情况。该标志是粘性的，因此，如果用户在上次手动查找或查找/替换时碰巧使用它，则 VBA 脚本将受到该粘性设置的污染，从而在您使用“^p”等字符时导致运行时错误 5692 和Find.Text 字符串中的“^t”。在运行 Find.Execute 之前显式设置“Find.MatchWildcards = False”可以防止出现错误。您可能会认为我们可以有一些文档或更好的错误消息。

总是失败的测试用例：

Sub ReplaceInDocument
  Dim wdReplaceAll
  'set the value for the replace "constant"
  wdReplaceAll = 2
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^p"
    .Replacement.Text = "replacement text "
    .Forward = True
    .Wrap = 1
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = True
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  'the Replace argument is the 11'th argument
    .Execute , , , , , , , , , , wdReplaceAll
  End With
End Sub

有效的测试用例：

Sub ReplaceInDocument
  Dim wdReplaceAll
  'set the value for the replace "constant"
  wdReplaceAll = 2
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^p"
    .Replacement.Text = "replacement text "
    .Forward = True
    .Wrap = 1
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  'the Replace argument is the 11'th argument
    .Execute , , , , , , , , , , wdReplaceAll
  End With
End Sub

Answer 2

我做了一些研究，但是像你一样，我没有找到任何文档。
出现< /a> 该错误有时可能是由于未清除查找/替换文本引起的。

我已经使用几个不同的输入测试了下面的代码，并且它运行没有错误。
注意：代码需要勾选Tools ->参考文献-> Microsoft Word xx.0 对象库。

Sub TextReplace()

    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Dim oFind As Find

    Set oWord = CreateObject("Word.Application")
    oWord.Visible = True
    Set oDoc = oWord.Documents.Add("C:\in.doc")
    Set oFind = oDoc.Range.Find

    oFind.Execute "foo", , , , , , , , , "bar", wdReplaceAll

    oDoc.SaveAs ("C:\out.doc")
    oDoc.Close
    oWord.Visible = False

End Sub

如果运行此代码时出现任何错误，请随时更新您的问题。