TrackRevisions Property Example

This example sets the active document so that it tracks changes and makes them visible on the screen.

With ActiveDocument
    .TrackRevisions = True
    .ShowRevisions = True
End With

This example inserts text if change tracking isn't enabled.

If ActiveDocument.TrackRevisions = False Then
    Selection.InsertBefore "new text"
End If