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 |
---|---|---|---|
Inclure dans un wrapper | 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
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.