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