Wie Makro verwenden, um eingefügten Inhalt in einem Worddokument hervorzuheben?

Question

Ich möchte alle eingefügten/hinzugefügten Inhalte (aus den verfolgten Änderungen) in einer Word-Datei hervorheben. Wie soll ich Makro verwenden, um alle eingefügten/hinzugefügten Inhalte zu finden? Zum Beispiel in der unten stehenden Screenshot:

Worte blueyellowAnd amusingpink und hello sollten alle nach dem Ausführen des Makros hervorgehoben. Und das Makro sollte auch reibungslos funktionieren können, wenn eine relativ große Word-Datei mit allen verschiedenen nachverfolgten Änderungen ausgeführt wird. Unten ist der Makroinhalt, um den Inhalt gelb hervorzuheben, aber ich weiß nicht, wie ich den eingefügten Inhalt finde, da ich mit Macro nicht vertraut bin. =

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

Vielen Dank im Voraus!

Answer 1

Sie können versuchen, mit der Revisions-Objekt (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 

Weitere Informationen auf MSDN: Revisions Object (Word)