Revision.Accept, méthode (Word)

  • Article

Accepte le suivi des modifications spécifié, supprime la marque de révision et incorpore la modification dans le document.

Syntaxe

expression. Accept

expression Obligatoire. Variable qui représente un objet « Revision ».

Exemple

Cet exemple montre comment accepter la prochaine modification trouvée si le type de modification correspond à du texte inséré.

Set revNext = Selection.NextRevision(Wrap:=True) 
 
If Not (revNext Is Nothing) Then 
 If revNext.Type = wdRevisionInsert Then revNext.Accept 
End If

Cet exemple montre comment accepter toutes les modifications comprises dans la sélection.

Dim revLoop As Revision 
Dim rngSelection As Range 
 
Set rngSelection = Selection.Range 
For Each revLoop In rngSelection.Revisions 
 revLoop.Accept 
Next revLoop

Voir aussi

Revision, objet

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.