Clase ContentControlListEntry (Word VBA)

Un objeto ContentControlListEntry representa un elemento de lista en una lista desplegable combinados o lista cuadro control de contenido.

Los principales procedimientos de la clase ContentControlListEntry son ContentControlListEntries.Add, Delete y Select

Set

Para usar una variable de clase ContentControlListEntry, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase ContentControlListEntry : ContentControl.DropdownListEntries, ContentControlListEntries.Add y ContentControlListEntries.Item

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ContentControlListEntry en una colección.

Dim cclListEntry As ContentControlListEntry
For Each cclListEntry In ActiveDocument.Range.ContentControls(1).DropdownListEntries
	If cclListEntry.Text = "Other" Then cclListEntry.Delete
Next cclDropdownListEntry

Métodos

Los principales métodos de la clase ContentControlListEntry son

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

Dim strText As String: strText =  
Dim ccl As ContentControlListEntry
Set ccl = ActiveDocument.Range.ContentControls(1).DropdownListEntries.Add(Text:=strText)

Delete - Elimina el elemento especificado de un control de contenido de cuadro combinado o de lista desplegable.

ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Delete

Select - Selecciona la entrada de la lista de un control de contenido de lista desplegable o de cuadro combinado y establece el texto del control de contenido en el valor del elemento.

ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Select

Propiedades

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

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

ContentControlListEntries.Parent Devuelve un objeto Object que representa el objeto primario del objeto ContentControlListEntries especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.ContentControls(1).DropdownListEntries.Parent

Index Devuelve o establece un valor de tipo Long que representa la posición ordinal de un elemento de lista de control de contenido en la colección de elementos de lista.

ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Index =

Parent Devuelve un objeto Object que representa el objeto primario del objeto ContentControlListEntry especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Parent

Text Devuelve o establece una cadena que representa el texto para mostrar de un elemento de lista de un control de contenido de lista desplegable o de cuadro combinado.

ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Text =

Value Devuelve o establece una cadena que representa el valor de programación de un elemento de un control de contenido de lista desplegable o de cuadro combinado.

ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Value =