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.
Use the RejectAllRevisions method to reject all revisions in a document. Formatting changes cannot be rejected.
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