Reject Method Example

This example rejects the next tracked change found in the active document.

If ActiveDocument.Revisions.Count >= 1 Then
    Set myRev = Selection.NextRevision
    If Not (myrev Is Nothing) Then myrev.Reject
End If

This example rejects the tracked changes in the first paragraph.

Set myRange = ActiveDocument.Paragraphs(1).Range
For Each myRev In myRange.Revisions
    myRev.Reject
Next myRev

This example rejects the first tracked change in the selection.

Set myRange = Selection.Range
If myRange.Revisions.Count >= 1 Then myRange.Revisions(1).Reject