Accept Method

Accepts the specified tracked change. The revision marks are removed, and the change is incorporated into the document.

expression   Required. An expression that returns a Revision object.

Example

This example accepts the next tracked change found if the change type is inserted text.

Set revNext = Selection.NextRevision(Wrap:=True)

If Not (revNext Is Nothing) Then
    If revNext.Type = wdRevisionInsert Then revNext.Accept
End If

This example accepts all the tracked changes in the selection.

Dim revLoop As Revision
Dim rngSelection As Range

Set rngSelection = Selection.Range
For Each revLoop In rngSelection.Revisions
    revLoop.Accept
Next revLoop