Revision.Accept method (Word)

Accepts the specified tracked change, removes the revision mark, and incorporates the change into the document.

Syntax

expression. Accept

expression Required. A variable that represents 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

See also

Revision Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.