Classe ContentControlListEntries (Word VBA)

La collection ContentControlListEntries contient les objets ContentControlListEntry qui représentent les éléments d'une liste déroulante ou d'un contrôle de contenu de zone de liste déroulante. Pour utiliser une variable de classe ContentControlListEntries, elle doit d'abord être instanciée, par exemple

Dim ccls as ContentControlListEntries
Set ccls = ActiveDocument.Range.ContentControls(1).DropdownListEntries

Add

Ajoute un nouvel élément de liste à un contrôle de contenu de liste déroulante ou de zone de liste déroulante et renvoie un objet ContentControlListEntry .

Les noms complets des entrées de liste doivent être uniques.

Add (Text, Value, Index)

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"

Arguments

Un argument nommé

Text (String) - Spécifie le texte affiché pour l'élément de liste.

Optional arguments

Les arguments suivants sont facultatifs

Value (String) - Spécifie la valeur de l'élément de liste.

Index (Long) - Spécifie la position ordinale du nouvel élément dans la liste.

Clear

Efface tous les éléments du contrôle de contenu de liste déroulante ou de zone de liste déroulante.

Dim objCC As ContentControl 
 
Set objCC = ActiveDocument.ContentControls(1) 
 
objCC.DropdownListEntries.Clear

Count

Renvoie le nombre d’éléments dans la collection ContentControlListEntries .

Dim lngCount As Long
lngCount = ActiveDocument.Range.ContentControls(1).DropdownListEntries.Count

Item

Renvoie un objet ContentControlListEntry qui représente l'élément spécifié dans la collection.

Item (Index)

Index: Spécifie la position ordinale de l'objet au sein de la collection.

Dim ccl As ContentControlListEntry
Set ccl = ActiveDocument.Range.ContentControls(1).DropdownListEntries(Index:=1)