☰

将修订转换为突出显示

tag-icon • tag-icon microsoft-word vba microsoft-word-2010
将修订转换为突出显示

我正在寻找一种自动方法将 Microsoft Word 2010 中的修订转换为突出显示的文本。因此，本质上我想要做的是：

  1. 突出显示所有带有修订的文本片段
  2. 接受所有修订（有一个按钮）

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

答案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

答案2

奇怪的是，这在我的文档（Word 2010）中起到了部分作用。修订仅从第 5 页开始突出显示。不知道如何告诉宏从文档顶部开始，甚至不知道

Selection.Homekey Unit:=wdStory

但是手动接受每个更改也会考虑第 1-4 页的修订。

有谁有类似的经历吗？

彼得

相关内容