将修订转换为突出显示

Question

我正在寻找一种自动方式将 Microsoft Word 2010 中的跟踪更改转换为突出显示的文本。所以，本质上我想做的是：

1. 突出显示所有带有跟踪更改的文本片段
2. 接受所有跟踪的更改（有一个按钮）

有没有办法使用内置功能或脚本来做到这一点？

Answer 1

VBA 中有修订对象。从那里可以简单地遍历每个修订项目，接受并使用预定义的颜色突出显示它。

此外，我们需要暂时禁用跟踪。

Sub tracked_to_highlighted()           
    tempState = ActiveDocument.TrackRevisions
    ActiveDocument.TrackRevisions = False    
    For Each Change In ActiveDocument.Revisions        
        Set myRange = Change.Range
        myRange.Revisions.AcceptAll
        myRange.HighlightColorIndex = wdGreen            
    Next    
    ActiveDocument.TrackRevisions = tempState
End Sub