Objeto ContentControlListEntry (Word)
Un objeto ContentControlListEntry representa un elemento de lista en una lista desplegable combinados o lista cuadro control de contenido. Un objeto ContentControlListEntry es un miembro de la colección ContentControlListEntries para un objeto ContentControl.
Comentarios
Utilice el método Add de la colección ContentControlListEntries para crear un nuevo objeto ContentControlListEntry. Utilice el método Item o DropdownListEntries (Index), donde Index es la posición ordinal del elemento de la lista de control de contenido, para tener acceso a elementos individuales dentro de la colección ContentControlListEntries.
Nota:
[!NOTA] Entradas de la lista deben tener nombres de presentación únicos. Intenta agregar un elemento de lista que ya existe, genera un error en tiempo de ejecución.
En el ejemplo de código siguiente se utiliza el método Add para agregar varios elementos de lista a un nuevo control de contenido de lista desplegable y, a continuación, se utiliza el método Item para tener acceso al tercer elemento de la lista y cambiar el texto.
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"
Use los métodos MoveUp y MoveDown para cambiar de posición los elementos de una lista desplegable. El ejemplo de código siguiente mueve hacia abajo el primer elemento, con objeto de que se convierta en el último elemento de la lista, y mueve hacia arriba el último elemento, con el fin de que se convierta en el primer elemento de la lista.
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
Use el método Select para seleccionar mediante programación un elemento de lista de control de contenido. En el siguiente ejemplo de código, se inserta un control de contenido de lista desplegable en el documento activo, se establece el texto del título y de marcador de posición, se agregan varios elementos a la lista y, a continuación, se selecciona el último elemento especificado.
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
Utilice la propiedad Text para establecer el texto de un elemento de la lista de control de contenido y utilice la propiedad Value para establecer mediante programación un valor que puede utilizar posteriormente para procesar un formulario. Por ejemplo, puede utilizar una lista desplegable de control de contenido para obtener una lista de productos. La propiedad Text puede contener el nombre del producto, un nombre para mostrar que un usuario puede reconocer y comprender fácilmente. La propiedad Value puede contener el número de producto para el producto que corresponde a un número de producto en una base de datos. A continuación, puede utilizar el número de producto en la propiedad Value para buscar información del producto en una base de datos. Además, el valor de la propiedad Value es lo que se envía a los datos XML personalizados si el control de contenido se asigna a datos XML en el almacén de datos.
El ejemplo de código siguiente establece el valor para el elemento basándose en el contenido del texto que se va a mostrar.
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
Use el método Delete para quitar un elemento de una lista desplegable o un cuadro combinado de control de contenido. En el ejemplo de código siguiente, se elimina un elemento de lista desplegable si el texto mostrado del elemento es "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étodos
| Nombre |
|---|
| Delete |
| MoveDown |
| MoveUp |
| Select |
Propiedades
| Nombre |
|---|
| Aplicación |
| Creator |
| Índice |
| Parent |
| Text |
| Value |
Vea también
Referencia de modelos de objetos de Word
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.