Revision.Reject Method (Word)

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


expression. Reject

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


Formatting changes cannot be rejected.


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 
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 _ 

See also

Revision Object