Метод Document.DeleteAllCommentsShown (Word)

Удаляет все редакции указанного документа, отображаемые на экране.

Важно!

DeleteAllCommentsShown удаляет видимое подмножество комментариев. Сюда входят активные примечания (показаны), а также разрешенные примечания (на которые указывает указание примечания).

Синтаксис

выражение. DeleteAllCommentsShown

выражение (обязательно). Переменная, представляющая объект Document .

Пример

В этом примере скрываются все комментарии, сделанные джеффом Смитом, и удаляются все остальные отображаемые примечания.

Sub HideDeleteComments() 
 Dim rev As Reviewer 
 With ActiveWindow.View 
 'Display all comments and revisions 
 .ShowRevisionsAndComments = True 
 .ShowFormatChanges = True 
 .ShowInsertionsAndDeletions = True 
 
 For Each rev In .Reviewers 
 rev.Visible = True 
 Next 
 
 'Hide only the revisions/comments made by the 
 'reviewer named "Jeff Smith" 
 .Reviewers(Index:="Jeff Smith").Visible = False 
 End With 
 
 'Delete all comments displayed in the active view 
 ActiveDocument.DeleteAllCommentsShown 
End Sub

См. также

Объект Document

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.