Revision.Reject, méthode (Word)

  • Article

Rejette la modification spécifiée. Les marques de révision sont supprimées et le texte d'origine reste intact.

Syntaxe

expression. Reject

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

Remarques

Les modifications de mise en forme ne peuvent pas être rejetées.

Exemple

Cet exemple montre comment rejeter la prochaine modification trouvée dans le document actif.

Dim revNext As Revision 
 
If ActiveDocument.Revisions.Count >= 1 Then 
 Set revNext = Selection.NextRevision 
 If Not (revNext Is Nothing) Then revNext.Reject 
End If

Cet exemple montre comment rejeter les modifications du premier paragraphe.

Dim rngTemp As Range 
Dim revLoop As Revision 
 
Set rngTemp = ActiveDocument.Paragraphs(1).Range 
For Each revLoop In rngTemp.Revisions 
 revLoop.Reject 
Next revLoop

Cet exemple montre comment rejeter la première modification comprise dans la sélection.

Dim rngTemp As Range 
 
Set rngTemp = Selection.Range 
If rngTemp.Revisions.Count >= 1 Then _ 
 rngTemp.Revisions(1).Reject

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.