Share via

Revision.Accept Method

  • Article
Word Developer Reference

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.

Visual Basic for Applications 
  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.

Visual Basic for Applications 
  Dim revLoop As Revision
Dim rngSelection As Range

Set rngSelection = Selection.Range
For Each revLoop In rngSelection.Revisions
revLoop.Accept
Next revLoop

See Also