Document.TrackRevisions (Word)

True if changes are tracked in the specified document.

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