ShowRevisions 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