Selection.NextRevision (Word)

Locates and returns the next tracked change as a Revision object.

The changed text becomes the current selection. Use the properties of the resulting Revision object to see what type of change it is, who made it, and so forth. Use the methods of the Revision object to accept or reject the change. If there are no tracked changes to be found, the current selection remains unchanged.

NextRevision (Wrap)

Wrap: True to continue searching for a revision at the beginning of the document when the end of the document is reached. The default value is 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