Rejects all the tracked changes in a range. The revision marks are removed, leaving the original text intact.
expression.RejectAll
expression Required. An expression that returns a Revisions object.
Remarks
Use the RejectAllRevisions method to reject all revisions in a document. Formatting changes cannot be rejected.
Example
This example rejects all the tracked changes in the active document.
ActiveDocument.Revisions.RejectAll
This example rejects all the tracked changes in the selection.
Dim rngTemp As Range
Set rngTemp = Selection.Range
rngTemp.Revisions.RejectAll