Clase ContentControlListEntries (Word VBA)

La colección ContentControlListEntries contiene objetos ContentControlListEntry que representan los elementos de una lista desplegable o un control de contenido de cuadro combinado. Para usar una variable de clase ContentControlListEntries, primero debe ser instanciado, por ejemplo

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

Add

Agrega un nuevo elemento de lista a un control de contenido de lista desplegable o de cuadro combinado y devuelve un objeto ContentControlListEntry .

[!NOTA] Entradas de la lista deben tener nombres de presentación únicos.

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 argumento con nombre

Text (String) - Especifica el texto para mostrar para el elemento de lista.

Optional arguments

Los siguientes argumentos son opcionales

Value (String) - Especifica el valor del elemento de lista.

Index (Long) - Especifica la posición ordinal del nuevo elemento en la lista.

Clear

Borra todos los elementos de un control de contenido de lista desplegable o de cuadro combinado.

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

Count

Devuelve el número de elementos contenidos en la colección ContentControlListEntries.

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

Item

Devuelve un objeto ContentControlListEntry que representa el elemento especificado de la colección.

Item (Index)

Index: Especifica la posición ordinal del objeto dentro de la colección.

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