expression.ShowRevisionsAndComments
expression Required. An expression that returns a View object.
Example
This example hides the revisions and comments in a document. This example assumes that the document in the active window contains revisions made by one or more reviewers.
Sub ShowRevsComments()
ActiveWindow.View.ShowRevisionsAndComments = False
End Sub