Revision.Reject Method (Word)

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

Syntax

expression. Reject

expression Required. A variable that represents a 'Revision' object.

Remarks

Formatting changes cannot be rejected.

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

See also

Revision Object