Selection.NextRevision, méthode (Word)

Localise et renvoie la modification suivante sous la forme d'un objet Revision.

Syntaxe

expression. NextRevision( _Wrap_ )

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

Paramètres

Nom Requis/Facultatif Type de données Description
Wrap Facultatif Variant True pour poursuivre la recherche d'une révision au début du document lors de la fin du document est atteinte. La valeur par défaut est False.

Valeur renvoyée

Revision

Remarques

Le texte modifié devient la sélection actuelle. Utiliser les propriétés de l'objet Revision obtenu pour voir quel type de modification il s'agit, qui l'a effectuée et ainsi de suite. Utilisez les méthodes de l'objet Revision pour accepter ou rejeter la modification.

S'il n'existe aucune modification, la sélection active reste inchangée.

Exemple

Cet exemple montre comment rejeter la prochaine modification trouvée après le cinquième paragraphe du document actif. La revTempvariable est définie sur Nothing si aucune modification n’est trouvée.

Dim rngTemp as Range 
Dim revTemp as Revision 
 
If ActiveDocument.Paragraphs.Count >= 5 Then 
 Set rngTemp = ActiveDocument.Paragraphs(5).Range 
 rngTemp.Select 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then revTemp.Reject 
End If

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

Dim revTemp as Revision 
 
Set revTemp = Selection.NextRevision(Wrap:=True) 
If Not (revTemp Is Nothing) Then 
 If revTemp.Type = wdRevisionInsert Then revTemp.Accept 
End If

Cet exemple trouve la révision exécutée par l'auteur du document après la sélection active.

Dim revTemp as Revision 
Dim strAuthor as String 
 
strAuthor = ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) 
 
Do While True 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then 
 If revTemp.Author = strAuthor Then 
 MsgBox Prompt:="Another revision by " & strAuthor & "!" 
 Exit Do 
 End If 
 Else 
 MsgBox Prompt:="No more revisions!" 
 Exit Do 
 End If 
Loop

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.