计算 VBA 中“全部替换”所做的替换

Question

我正在开发一个可以解析文档并在需要时修改样式的宏。到目前为止，我的一个子使用Find 和Execute 和一个循环来遍历具有定义Style 的所有段落。它工作得很好，并且很容易知道修改了多少次。 但是，.Execute Replace:=wdReplaceAll 似乎效率更高，但不会在 VBA 中返回后面的信息，即使它在 Word 中直接使用时显示（使用 Ctrl + H)。

如何绕过这个问题来计算替换的数量？

非常感谢。

Answer 1

您可以结合使用 Word 的内置查找和替换以及使用正则表达式库（Microsoft VBScript 正则表达式 5.5）进行搜索和替换。

VBScript 正则表达式不能搜索样式，只能搜索文本，但可以提供找到的匹配数。

因此，您首先搜索并替换您感兴趣的样式的段落标记（^p + 样式）。您将段落标记替换为修改后的段落标记，例如“###^p”，小心替换为相同的样式。

然后您使用正则表达式搜索和替换来查找段落标记修饰符并将其替换为空，从而恢复原始文本。正则表达式有一个 .Matches.Count 方法，它将为您提供 ### 的替换次数。

你可以找到以下帮助的堆栈溢出链接

How to Use/Enable (RegExp object) Regular Expression using VBA (MACRO) in word

Answer 2

尝试基于：

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = InputBox("What is the Text to Find")
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Do While .Find.Found
    i = i + 1
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
MsgBox i & " instances found."
End Sub

上面的代码实际上并没有替换任何东西 - 它只是计算找到的实例。