返回一个 Reviewers 对象,该对象代表所有的审阅者。
expression.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