Clase ListEntry (Word VBA)

La clase ListEntry representa un elemento de un campo de formulario desplegable.

Set

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

Dim ley as ListEntry
Set ley = ActiveDocument.FormFields(1).DropDown.ListEntries(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase ListEntry : DropDown.ListEntries, ListEntries.Add y ListEntries.Item

For Each

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

Dim ley As ListEntry
For Each ley In ActiveDocument.FormFields(1).DropDown.ListEntries
	
Next ley

ListEntries.Add

Devuelve un objeto ListEntry que representa un elemento agregado a un campo de formulario desplegable.

Sintaxis : expression.Add (Name, Index)

Set myField = ActiveDocument.FormFields.Add(Range:= _ 
 Selection.Range, Type:= wdFieldFormDropDown) 
With myField.DropDown.ListEntries 
 .Add Name:="Red" 
 .Add Name:="Blue" 
 .Add Name:="Green" 
End With

Arguments

Un argumento con nombre

Name (String) - Nombre del elemento del campo de formulario desplegable.

Los siguientes argumentos son opcionales

Index (Long) - Número que representa la posición del elemento en la lista.

ListEntries.Clear

Elimina todos los elementos de un campo de formulario con lista desplegable.

Documents("Sales.doc").FormFields("Colors") _ 
 .DropDown.ListEntries.Clear

ListEntries.Count

Devuelve un Long que representa el número de entradas de la lista de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.FormFields(1).DropDown.ListEntries.Count

ListEntries.Item

Devuelve un objeto ListEntry individual de una colección.

Sintaxis : expression.Item (Index)

Index: El objeto individual que se va a devolver.

Sub ListEntryItem() 
 Dim d As DropDown 
 Set d = ActiveDocument.FormFields.Add _ 
 (Range:=Selection.Range, _ 
 Type:=wdFieldFormDropDown).DropDown 
 With d.ListEntries 
 .Add Name:="Black" 
 .Add Name:="Green" 
 End With 
 MsgBox d.ListEntries.Item(1).Name 
End Sub

ListEntries.Parent

Devuelve un objeto Object que representa el objeto primario del objeto ListEntries especificado.

Dim objParent As Object
Set objParent = ActiveDocument.FormFields(1).DropDown.ListEntries.Parent

Delete

Elimina la entrada de lista especificada.

ActiveDocument.FormFields(1).DropDown.ListEntries(1).Delete

Index

Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim lngIndex As Long
lngIndex = ActiveDocument.FormFields(1).DropDown.ListEntries(1).Index

Name

Devuelve o establece el nombre del objeto especificado.

ActiveDocument.FormFields(1).DropDown.ListEntries(1).Name =

Parent

Devuelve un objeto Object que representa el objeto primario del objeto ListEntry especificado.

Dim objParent As Object
Set objParent = ActiveDocument.FormFields(1).DropDown.ListEntries(1).Parent