Reject Method

Reject Method

Rejects the specified tracked change. The revision marks are removed, leaving the original text intact.

Note   Formatting changes cannot be rejected.

expression   Required. An expression that returns a Revision object.

Example

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

Dim revNext As Revision

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

This example rejects the tracked changes in the first paragraph.

Dim rngTemp As Range
Dim revLoop As Revision

Set rngTemp = ActiveDocument.Paragraphs(1).Range
For Each revLoop In rngTemp.Revisions
    revLoop.Reject
Next revLoop

This example rejects the first tracked change in the selection.

Dim rngTemp As Range

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