Méthode Document.GetCrossReferenceItems (Word)
Cette méthode renvoie un tableau d'éléments pouvant être renvoyés en fonction du type de renvoi spécifié.
Syntaxe
expression. GetCrossReferenceItems( _ReferenceType_ )
Expression Expression qui représente un objet Document .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| ReferenceType | Obligatoire | Variant | Type d'élément auquel vous souhaitez insérer un renvoi. Il peut s'agir d'une des constantes WdReferenceType. |
Remarques
Le tableau renvoyé par cette méthode correspond aux éléments répertoriés dans la zone pour laquelle la boîte de dialogue renvoi. La valeur renvoyée par cette méthode peut être utilisée comme valeur de l'argument RéférenceQui pour la méthode InsertCrossReference de l'objet Range ou Selection.
Exemple
Cet exemple montre comment afficher le nom du premier signet du document actif qui peut faire l'objet d'un renvoi.
If ActiveDocument.Bookmarks.Count >= 1 Then
myBookmarks = ActiveDocument.GetCrossReferenceItems( _
wdRefTypeBookmark)
MsgBox myBookmarks(1)
End If
Cet exemple montre comment utilise la méthode GetCrossReferenceItems pour récupérer une liste d'en-têtes pouvant faire l'objet, puis insérer un renvoi à la page incluant l'en-tête « Introduction ».
myHeadings = _
ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading)
For i = 1 To Ubound(myHeadings)
If Instr(LCase$(myHeadings(i)), "introduction") Then
Selection.InsertCrossReference _
ReferenceType:=wdRefTypeHeading, _
ReferenceKind:=wdPageNumber, ReferenceItem:=i
Selection.InsertParagraphAfter
End If
Next i
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.