Método Document.DeleteAllCommentsShown (Word)

Exclui todas as revisões de um documento especificado que estiverem visíveis na tela.

Importante

DeleteAllCommentsShown exclui o subconjunto visível de comentários. Isso inclui comentários ativos (mostrados) bem como comentários resolvidos (indicados por dica de comentário).

Sintaxe

expression. DeleteAllCommentsShown

expression é obrigatório. Uma variável que representa um objeto Document.

Exemplo

Este exemplo oculta todos os comentários feitos por "Jeff Smith" e exclui todos os outros comentários visíveis.

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

Confira também

Objeto Document

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.