Selection.NextRevision (Word)

Localiza e retorna a próxima alteração controlada como um objeto Revision .

O texto alterado se torna a seleção atual. Use as propriedades do objeto Revision resultante para ver qual tipo de alteração é, quem a fez e assim por diante. Use os métodos do objeto Revision para aceitar ou rejeitar a alteração. Se não houver alterações controladas para serem encontradas, a seleção atual continua inalterada.

NextRevision (Wrap)

Wrap: True para continuar a pesquisa de uma revisão no início do documento quando é atingido o final do documento. O valor padrão é False.

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