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
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.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for