Objet ContentControlListEntry (Word)

Un objet ContentControlListEntry représente un élément de liste dans une liste déroulante liste ou une liste déroulante case contrôle de contenu. Un objet ContentControlListEntry est membre de la collection ContentControlListEntries pour un objet ContentControl.

Remarques

Utilisez la méthode Add de la collection ContentControlListEntries pour créer un objet ContentControlListEntry. Utilisez la méthode Item ou DropdownListEntries (Index), où Index est la position ordinale de l'élément de liste de contrôle de contenu, pour accéder à un élément de liste individuels au sein de la collection ContentControlListEntries.

Remarque

Les noms complets des entrées de liste doivent être uniques. Vous essayez d'ajouter un élément de liste qui existe déjà génère une erreur d'exécution.

L'exemple de code suivant utilise la méthode Add pour ajouter plusieurs éléments de liste à un nouveau contrôle de contenu de liste déroulante, puis utilise la méthode Item pour accéder au troisième élément dans la liste et de modifier le texte d'affichage.

Dim objCC As ContentControl 
Dim objLE As ContentControlListEntry 
Dim objMap As XMLMapping 
 
Set objCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList) 
 
'List items 
objCC.DropdownListEntries.Add "Cat" 
objCC.DropdownListEntries.Add "Dog" 
objCC.DropdownListEntries.Add "Equine" 
objCC.DropdownListEntries.Add "Monkey" 
objCC.DropdownListEntries.Add "Snake" 
objCC.DropdownListEntries.Add "Other" 
 
Set objLE = objCC.DropdownListEntries.Item(3) objLE.Text = "Horse" 

Utilisez les méthodes MoveUp et MoveDown pour repositionner les éléments dans une liste déroulante. L'exemple de code ci-dessous montre comment déplacer le premier élément vers le bas pour qu'il prenne la dernière position de la liste, puis comment déplacer le dernier élément vers le haut pour qu'il prenne la première position de la liste.

Dim objcc As ContentControl 
Dim objLE1 As ContentControlListEntry 
Dim objLE2 As ContentControlListEntry 
Dim intCount As Integer 
 
Set objcc = ActiveDocument.ContentControls.Item(3) 
 
If objcc.Type = wdContentControlComboBox Or _ 
 objcc.Type = wdContentControlDropdownList Then 
 
 'First item in the list. 
 Set objLE1 = objcc.DropdownListEntries.Item(1) 
 
 'Last item in the list. 
 Set objLE2 = objcc.DropdownListEntries.Item(objcc.DropdownListEntries.Count) 
 
 For intCount = 1 To objcc.DropdownListEntries.Count 
 'Move the first item down one. 
 objLE1.MoveDown 
 
 'Move the last item up one. 
 objLE2.MoveUp 
 Next 
 
End If

Utilisez la méthode Select pour sélectionner par programme un élément de liste d'un contrôle de contenu. L'exemple de code suivant montre comment insérer un contrôle de contenu de liste déroulante dans le document actif, définir le titre et le texte de l'espace réservé, ajouter plusieurs éléments à la liste et sélectionner le dernier élément entré.

Dim objCC As ContentControl 
Dim objCE As ContentControlListEntry 
Dim objMap As XMLMapping 
 
Set objCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList) 
objCC.Title = "My Favorite Animal" 
If objCC.ShowingPlaceholderText Then _ 
 objCC.SetPlaceholderText , , "Select your favorite animal " 
 
'List entries 
objCC.DropdownListEntries.Add "Cat" 
objCC.DropdownListEntries.Add "Dog" 
objCC.DropdownListEntries.Add "Horse" 
objCC.DropdownListEntries.Add "Monkey" 
objCC.DropdownListEntries.Add "Snake" 
 
Set objCE = objCC.DropdownListEntries.Add("Other") 
objCE.Select

Utilisez la propriété Text pour définir le texte affiché pour un élément de liste de contrôle de contenu et utilisez la propriété Value pour définir une valeur de programmation que vous pouvez utiliser ultérieurement pour le traitement d'un formulaire. Par exemple, vous pouvez utiliser une liste déroulante de contrôle de contenu pour obtenir une liste des produits. La propriété Text peut contenir le nom du produit, un nom d'affichage qu'un utilisateur peut facilement reconnaître et comprendre. La propriété Value peut contenir le numéro de produit pour le produit qui correspond à un nombre de produits dans une base. Vous pouvez ensuite utiliser le numéro de produit à partir de la propriété Value pour rechercher des informations sur le produit dans une base de données. En outre, la valeur de la propriété Value est ce qui est envoyé aux données XML personnalisées si le contrôle de contenu est mappé à des données XML dans le magasin de données.

L'exemple de code suivant montre comment définir la valeur de l'élément en fonction du contenu du texte d'affichage.

Dim objCc As ContentControl 
Dim objLe As ContentControlListEntry 
Dim strText As String 
Dim strChar As String 
 
Set objCc = ActiveDocument.ContentControls(3) 
 
For Each objLE In objCC.DropdownListEntries 
 If objLE.Text <> "Other" Then 
 strText = objLE.Text 
 objLE.Value = "My favorite animal is the " & strText & "." 
 End If 
Next

Utilisez la méthode Delete pour supprimer un élément d'une liste déroulante ou d'une zone de liste déroulante d'un contrôle de contenu. L'exemple de code suivant montre comment supprimer un élément de liste déroulante si le texte d'affichage de l'élément est « Other ».

Dim objCC As ContentControl 
Dim objCL As ContentControlListEntry 
 
For Each objCC In ActiveDocument.ContentControls 
 If objCC.Type = wdContentControlComboBox Or _ 
 objCC.Type = wdContentControlDropdownList Then 
 For Each objCL In objCC.DropdownListEntries 
 If objCL.Text = "Other" Then objCL.Delete 
 Next 
 End If 
Next 
 

Méthodes

Nom
Delete
MoveDown
MoveUp
Select

Propriétés

Nom
Application
Creator
Index
Parent
Text
Value

Voir aussi

Référence du modèle objet Word

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.