Selection.NextRevision (Word)

Localise et renvoie la modification suivante sous la forme d' un objet Revision.

Le texte modifié devient la sélection actuelle. S'il n'existe aucune modification, la sélection active reste inchangée.

NextRevision (Wrap)

Wrap: True pour poursuivre la recherche d'une révision au début du document lors de la fin du document est atteinte.

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