Word VBA宏需求：仅追踪插入的参考编号而非原字符串修订

你当前的查找替换宏在开启追踪修订时，会把目标字符串标记为「删除」，再重新插入原字符串+参考编号，产生冗余的修订记录。我们需要的是仅新增的参考编号显示为插入修订，原字符串保持无修订状态。

方案一：直接查找后插入（推荐） #

这种方式不替换原内容，找到目标字符串后直接在其末尾插入参考编号，只有插入部分会被标记为修订，完全避免冗余记录。

Sub InsertRefNumeralsWithTrackChanges()
    Dim feature As String
    Dim refnum As String
    Dim findRange As Range
    
    feature = InputBox("请输入要查找的特征字符串：")
    refnum = InputBox("请输入参考编号：")
    
    If feature = "" Or refnum = "" Then Exit Sub
    
    Set findRange = ActiveDocument.Content
    With findRange.Find
        .ClearFormatting
        .Text = feature
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        
        Do While .Execute
            findRange.Collapse Direction:=wdCollapseEnd
            findRange.Text = " (" & refnum & ")"
            Set findRange = findRange.Next
        Loop
    End With
End Sub

代码说明： #

• 用wdFindStop防止无限循环查找
• 定位到匹配字符串末尾后直接插入内容，原字符串完全不受影响
• 只有(参考编号)会被标记为「插入」修订，原内容无任何变更记录

方案二：清理替换后的冗余修订 #

如果已经用原宏完成替换，可通过以下代码批量处理冗余修订，只保留参考编号的插入记录：

Sub CleanupRedundantRevisions()
    Dim rev As Revision
    Dim originalText As String
    Dim revisedText As String
    Dim refText As String
    
    refText = InputBox("请输入之前插入的参考编号（如102）：")
    refText = " (" & refText & ")"
    
    For Each rev In ActiveDocument.Revisions
        If rev.Type = wdRevisionDelete Then
            ' 确保存在对应的插入修订
            If rev.Next(wdRevision) Is Nothing Then GoTo NextRev
            revisedText = rev.Next(wdRevision).Range.Text
            originalText = rev.Range.Text
            
            If revisedText = originalText & refText Then
                ' 接受原字符串的删除和插入修订
                rev.Accept
                rev.Next(wdRevision).Accept
                ' 重新插入参考编号并标记为修订
                rev.Range.End.InsertAfter refText
            End If
        End If
NextRev:
    Next rev
End Sub

注意： #

• 此方法依赖修订的连续顺序，仅适用于原宏执行后的清理场景
• 效率不如方案一，优先推荐方案一直接实现需求

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