Clase ContentControlListEntry (Word VBA)

Un objeto ContentControlListEntry representa un elemento de lista en una lista desplegable combinados o lista cuadro control de contenido. 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)

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

Delete

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

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 
 

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.

Puede establecer la propiedad Index en cualquier valor numérico para cambiar la posición ordinal de un elemento en una lista.

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

MoveDown

Mueve hacia abajo un elemento de un control de contenido de lista desplegable o de cuadro combinado, con objeto de que se sitúe a continuación del elemento que le seguía originalmente.

Dim objCC As ContentControl 
Dim objCL As ContentControlListEntry 
Dim intCount As Integer 
 
Set objCC = ActiveDocument.ContentControls.Item(3) 
 
If objCC.Type = wdContentControlComboBox Or _ 
 objCC.Type = wdContentControlDropdownList Then 
 
 Set objCL = objCC.DropdownListEntries.Item(1) 
 
 For intCount = 1 To objCC.DropdownListEntries.Count 
 objCL.MoveDown 
 Next 
 
End If

MoveUp

Mueve hacia arriba un elemento un elemento de un control de contenido de lista desplegable o de cuadro combinado, con objeto de que se sitúe antes del elemento que le precedía originalmente.

Dim objCC As ContentControl 
Dim objCL As ContentControlListEntry 
Dim intCount As Integer 
 
Set objCC = ActiveDocument.ContentControls.Item(3) 
 
If objCC.Type = wdContentControlComboBox Or _ 
 objCC.Type = wdContentControlDropdownList Then 
 
 Set objCL = objCC.DropdownListEntries.Item(objCC.DropdownListEntries.Count) 
 
 For intCount = 1 To objCC.DropdownListEntries.Count 
 objCL.MoveUp 
 Next 
 
End If

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.

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

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.

Las entradas de lista deben tener nombres para mostrar únicos.

Dim objCC As ContentControl 
Dim objLE As ContentControlListEntry 
Dim strFirst As String 
 
For Each objCC In ActiveDocument.ContentControls 
 If objCC.Type = wdContentControlComboBox Or objCC.Type = wdContentControlDropdownList Then 
 For Each objLE In objCC.DropdownListEntries 
 strFirst = Left(objLE.Text, 1) 
 
 If strFirst = LCase(strFirst) Then 
 objLE.Text = UCase(strFirst) & Right(objLe.Text, Len(objLe.Text) - 1) 
 End If 
 Next 
 End If 
Next

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.

Utilice la propiedad Value para almacenar los datos que se deben utilizar en tiempo de procesamiento.

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