Document.TrackRevisions (Word)

True se as alterações são controladas no documento especificado. Boolean de leitura/gravação.

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