Accept Method
From Microsoft Word Visual Basic
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