Selection.NextRevision (Word)

Busca y devuelve la siguiente marca de revisión como un objeto revision .

El texto cambiado se convierte en la selección actual. Si no se encuentran más marcas de revisión, no se modificará la selección actual.

NextRevision (Wrap)

Wrap: True para proseguir buscando una revisión al principio del documento cuando se llega al final del documento.

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