如何在Word中批量移除高亮文本格式并生成修订标记？

你遇到的问题核心是：用ReplaceAll直接替换格式不会触发修订记录，而逐个处理的宏没做循环导致只能单次执行。下面是修改后的宏，可以批量自动处理所有高亮文本，同时保留修订标记：

Sub RemoveHighlightsWithTrackChanges()
    Dim rngHighlight As Range
    ' 确保修订功能开启
    ActiveDocument.TrackRevisions = True
    
    ' 初始化查找范围为整个文档
    Set rngHighlight = ActiveDocument.Content
    
    With rngHighlight.Find
        .ClearFormatting
        .Highlight = True
        .Forward = True
        .Wrap = wdFindStop ' 找到最后一个高亮后停止，避免循环
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
    End With
    
    ' 循环查找所有高亮文本
    Do While rngHighlight.Find.Execute
        ' 移除当前找到的高亮，这个操作会被记录为修订
        rngHighlight.HighlightColorIndex = wdNoHighlight
        ' 调整查找范围，避免重复处理同一文本
        rngHighlight.Collapse wdCollapseEnd
    Loop
End Sub

关键说明： #

• 用Do While循环遍历所有高亮文本，每次处理完一个就把查找范围移到当前文本之后，避免重复处理
• 直接修改HighlightColorIndex属性，而不是用替换操作，这样每个移除高亮的动作都会被Track Changes记录下来
• 设置Wrap = wdFindStop防止查找完成后从头开始循环

使用步骤： #

1. 打开需要处理的Word文档
2. 按Alt + F11打开VBA编辑器
3. 右键点击当前文档，选择「插入」→「模块」
4. 把上面的代码粘贴到模块窗口中
5. 按F5运行宏，或者回到Word界面，通过「开发工具」→「宏」选择该宏执行

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