如何用VBA创建Word宏，忽略Track Revisions查找含段落标记的文本

问题分析 #

当Word开启修订跟踪（TrackRevisions=True）时，VBA的Find对象会默认处理包含所有修订标记（包括已删除文本）的完整文档内容，而非当前界面显示的最终文本。这就导致原本能匹配的[sometext]^p[moretext]被插入的删除修订干扰，无法正常定位。

可行实现方案 #

方案1：临时切换到"最终状态"执行替换（推荐） #

通过临时修改文档的View.RevisionsFilter.View属性，切换到不显示修订标记的"最终"视图，此时Find会基于当前显示的最终文本执行查找替换，完成后再恢复原视图状态。

修改后的VBA代码如下：

Sub FindAndReplaceWithRevisions()
    Dim wrdFind As Find
    Dim wrdRange As Range
    Dim wrdDoc As Document
    Dim originalView As WdRevisionsView ' 保存原视图状态
    
    Set wrdDoc = Application.ActiveDocument
    Set wrdRange = wrdDoc.Content
    Set wrdFind = wrdRange.Find
    
    ' 保存当前修订视图状态
    originalView = wrdDoc.View.RevisionsFilter.View
    
    On Error GoTo Cleanup ' 确保出错时恢复视图
    ' 切换到"最终"视图（不显示删除的修订内容）
    wrdDoc.View.RevisionsFilter.View = wdRevisionsViewFinal
    
    With wrdFind
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "[sometext]^p[moretext]"
        .Replacement.Text = "^p" ' 按需求替换为段落标记
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    wrdFind.Execute Replace:=wdReplaceAll
    
Cleanup:
    ' 恢复原修订视图状态
    wrdDoc.View.RevisionsFilter.View = originalView
    Set wrdFind = Nothing
    Set wrdRange = Nothing
    Set wrdDoc = Nothing
End Sub

方案说明

• wdRevisionsViewFinal表示显示文档的最终版本（不包含删除的修订内容），此时Find的匹配逻辑和关闭修订显示时的手动查找替换一致。
• 添加On Error GoTo Cleanup确保即使执行出错，也能恢复原视图状态，避免影响后续操作。

方案2：使用通配符匹配（兼容修订内容） #

如果无法切换视图，可以使用通配符匹配，忽略sometext和段落标记之间、moretext之前的删除修订内容。不过这种方法需要根据实际修订内容调整匹配规则，通用性稍差：

示例代码（假设删除内容是任意文本）：

Sub FindAndReplaceWithWildcards()
    Dim wrdFind As Find
    Dim wrdRange As Range
    Dim wrdDoc As Document
    
    Set wrdDoc = Application.ActiveDocument
    Set wrdRange = wrdDoc.Content
    Set wrdFind = wrdRange.Find
    
    With wrdFind
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "\[sometext\]*^p\[moretext\]*" ' 用通配符匹配中间任意内容
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True ' 开启通配符
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    wrdFind.Execute Replace:=wdReplaceAll
End Sub

注意事项

通配符模式下，方括号[]是特殊字符，需要用反斜杠\转义；*表示匹配任意长度的任意字符（包括修订标记对应的隐藏文本）。

关键提示 #

• 方案1不会影响文档的修订记录，只是临时切换视图，执行完成后恢复，是最安全的方式。
• 如果文档中有大量复杂修订，方案2的通配符规则可能需要微调，避免误匹配。

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