AcceptAll Method Example

This example accepts all the tracked changes in the active document.

If ActiveDocument.Revisions.Count >= 1 Then _
    ActiveDocument.Revisions.AcceptAll

This example accepts all the tracked changes in the selection.

Selection.Range.Revisions.AcceptAll