View.Reviewers Property (Word)
Office 2010
Returns a Reviewers object that represents all reviewers.
This example hides all revisions and comments in the document and displays only revisions and comments made by "Jeff Smith."
Sub HideRevisions()
Dim revName As Reviewer
With ActiveWindow.View
.ShowRevisionsAndComments = False
.ShowFormatChanges = True
.ShowInsertionsAndDeletions = True
For Each revName In .Reviewers
revName.Visible = True
Next
.Reviewers.Item("Jeff Smith").Visible = True
End With
End Sub
