Word VBA: Accepting All Tracked Changes in Active Docment

This Word VBA macro accepts the all tracked changes in an active document.

Macro Example

Sub AcceptAllTrackChangesActiveDocument()
  
  ActiveDocument.Revisions.AcceptAll

End Sub

Description

[Application.]ActiveDocument

  ActiveDocument...

The [Application.]ActiveDocument property returns an active Document object.

obj-Word-Application-ActiveDocument

Because the ActiveDocument property is a member of the Word.Global class, we can omit the Application property.

obj-Word-ActiveDocument

Document.Revisons (ActiveDocument.Revisions)

  ActiveDocument.Revions...

The ActiveDocument.Revisions (Document.Revisions property) returns a Revisions collection object that represents the tracked changes in the active document.

obj-Word-Document-Revisions

Revisons.AcceptAll

  ActiveDocument.Revions.AcceptAll

Finally we can accepts all the tracked changes in an active document by the Revisions.AcceptAll method.

obj-Word-Revisions-AcceptAll

Sub AcceptAllTrackChangesActiveDocument()
  
  ActiveDocument.Revisions.AcceptAll

End Sub

Properties

http://www.relief.jp/itnote/archives/word-vba-accept-all-changes.php

Apply To

  • Word 2013
  • Word 2010
  • Word 2007