TrackRevisions Property

True if changes are tracked in the specified document. Read/write Boolean.

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