Reject Method

Applies To

Revision object.

Description

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

Note Formatting changes cannot be rejected.

Syntax

expression.Reject

expression Required. An expression that returns a Revision object.

See Also

Accept method, RejectAll method, RejectAllRevisions 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