マクロを使用して、挿入されたコンテンツをワードdocにハイライト表示する方法は？

Question

単語ファイル内の（挿入された/変更された内容の）挿入/追加されたすべてのコンテンツを強調表示したいと思います。マクロを使用して挿入/追加されたすべてのコンテンツを検索する方法を教えてください。例えば、下のスクリーンショットに：

言葉blueyellowAnd amusingpinkとhelloは、すべてのマクロを実行した後に強調表示されます。また、マクロは、追跡されたすべての変更を含む比較的大きなWordファイルを実行するときにスムーズに動作する必要があります。以下は、コンテンツを黄色に強調するマクロコンテンツですが、マクロに慣れていないため挿入されたコンテンツを見つける方法がわかりません。 = =

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

ありがとうございます！

Answer 1

あなたが使用して試すことができ改正はMSDN上（ワード）

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 

詳細情報は、オブジェクト：Revisions Object (Word)