Accept Method

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