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