Accept Method Example

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

Set myRev = Selection.NextRevision(Wrap:=True)
If Not (myRev Is Nothing) Then
    If myRev.Type = wdRevisionInsert Then myRev.Accept
End If

This example accepts all the tracked changes in the selection.

Set myRange = Selection.Range
For Each myRev In myRange.Revisions
    myRev.Accept
Next myRev