Reviewers Property
Returns a Reviewers object that represents all reviewers.
expression.Reviewers
expression Required. An expression that returns a View object.
Remarks
The Reviewers object is a global list of all reviewers, regardless of whether the reviewer reviewed the document displayed in the specified window.
Example
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