Partager via


Méthode Document.DeleteAllCommentsShown (Word)

Supprime toutes les révisions du document spécifié affichées à l'écran.

Importante

DeleteAllCommentsShown supprime le sous-ensemble visible de commentaires. Cela inclut les commentaires actifs (affichés) ainsi que les commentaires résolus (indiqués par un indicateur de commentaire).

Syntaxe

expression. DeleteAllCommentsShown

expression Obligatoire. Variable qui représente un objet Document.

Exemple

Cet exemple montre comment masquer tous les commentaires effectués par « Jeff Smith » et supprimer tous les autres commentaires affichés.

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

Voir aussi

Objet Document

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.