Selection.PreviousRevision, méthode (Word)

Recherche et renvoie la modification précédente sous la forme d'un objet Revision.

Syntaxe

expression. PreviousRevision( _Wrap_ )

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

Paramètres

Nom Requis/Facultatif Type de données Description
Wrap Facultatif Variant True : la recherche d'une révision se poursuit vers la fin du document lorsqu'elle atteint le début du document. La valeur par défaut est False.

Valeur renvoyée

Revision

Exemple

Cet exemple montre comment sélectionner la dernière modification de la première section du document actif et afficher la date et l'heure de la modification.

Selection.EndOf Unit:=wdStory, Extend:=wdMove 
Set myRev = Selection.PreviousRevision 
If Not (myRev Is Nothing) Then MsgBox myRev.Date

Cet exemple montre comment rejeter la modification précédente trouvée si le type de modification correspond à du texte supprimé ou inséré. Si la modification concerne un changement de style, la modification est acceptée.

Set myRev = Selection.PreviousRevision(Wrap:=True) 
If Not (myRev Is Nothing) Then 
 Select Case myRev.Type 
 Case wdRevisionDelete 
 myRev.Reject 
 Case wdRevisionInsert 
 myRev.Reject 
 Case wdRevisionStyle 
 myRev.Accept 
 End Select 
End If

Voir aussi

Selection, 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.