Selection.NextRevision (Word)

Sucht und gibt die nächste überwachte Änderung als Revision -Objekt zurück.

Der geänderte Text entspricht dann der aktuellen Markierung. Wenn keine Überarbeitungen vorhanden sind, wird die aktuelle Markierung nicht geändert.

NextRevision (Wrap)

Wrap: True, wenn die Suche nach einer Korrektur am Anfang des Dokuments fortgesetzt werden soll, nachdem das Ende des Dokuments erreicht wurde.

Dim rngTemp as Range 
Dim revTemp as Revision 
 
If ActiveDocument.Paragraphs.Count >= 5 Then 
 Set rngTemp = ActiveDocument.Paragraphs(5).Range 
 rngTemp.Select 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then revTemp.Reject 
End If