Reviewers 属性

返回一个 Reviewers 对象，该对象代表所有的审阅者。

expression   必需。该表达式返回一个 View 对象。

说明

Reviewers 对象是所有审阅者的全局列表，无论审阅者是否审阅指定窗口中显示的文档。

示例

本示例隐藏文档中的所有修订和备注，只显示由“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