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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : tout au long de 2024, nous allons éliminer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d'informations, consultez :Envoyer et afficher des commentaires pour