Accepts the specified tracked change. The revision marks are removed, and the change is incorporated into the document.
expression.Accept
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