如何使用宏来突出显示单词doc中插入的内容？

Question

我想在word文件中突出显示所有插入/添加的内容（来自跟踪的更改）。我怎么想用宏来查找所有插入/添加的内容？例如，在下面的屏幕截图中：

运行宏后，blue yellow And amusing pink和hello这两个词都应突出显示。当运行具有所有不同跟踪更改的相对较大的Word文件时，宏也应该能够顺利运行。下面是要突出显示内容为黄色的宏内容，但我不知道如何查找插入的内容，因为我不熟悉Macro。 = =

The Sub Macro1()
'
' Macro1 Macro
'
'
    Options.DefaultHighlightColorIndex = wdYellow
    Selection.Range.HighlightColorIndex = wdYellow
End Sub

非常感谢你！

Answer 1

您可以尝试使用修订对象（Word）

Sub HighlightInsertedRevision()

   Dim myRevision As Revision
   Dim currentDoc As Word.Document

   Set currentDoc = Application.ActiveDocument

   'Set the selection range
   currentDoc.ActiveWindow.Selection.HomeKey Unit:=wdStory

   'Optimise for loop
   Application.ScreenUpdating = False

   'Loop all revisions in current document
   For Each myRevision In currentDoc.Revisions
       With myRevision
           'Check if revision type is inserted revision
           If .Type = wdRevisionInsert Then
               .Range.HighlightColorIndex = wdYellow
           End If
       End With
   Next

   Application.ScreenUpdating = True

End Sub

有关MSDN的更多信息：Revisions Object (Word)