Reject Method

Microsoft Word Visual Basic

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

Note  Formatting changes cannot be rejected.

expression.Reject

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