Revisions Property Example

This example displays the number of tracked changes in the first section in the active document.

MsgBox ActiveDocument.Sections(1).Range.Revisions.Count

This example accepts all tracked changes in the first paragraph in the selection.

Set myRange = Selection.Paragraphs(1).Range
myRange.Revisions.AcceptAll