Méthode Document.AcceptAllRevisionsShown (Word)

  • Article

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

Syntaxe

expression. AcceptAllRevisionsShown

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

Remarques

Utilisez la méthode RejectAllRevisionsShown pour rejeter toutes les révisions du document spécifié affichées à l'écran.

Exemple

Cet exemple montre comment accepter toutes les révisions qui s'affichent après avoir masqué les révisions réalisées par « Jeff Smith ». Il présuppose que le document actif a été révisé par plusieurs personnes, et le nom de l'un des réviseurs est « Jeff Smith ».

Sub AcceptAllChanges() 
 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 
 
 'Accept all revisions displayed in the active view 
 ActiveDocument.AcceptAllRevisionsShown 
 
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.