Clase ListEntries (Word VBA)

Una colección de objetos ListEntry que representan todos los elementos de un campo de formulario de lista desplegable. Para usar una variable de clase ListEntries, primero debe ser instanciado, por ejemplo

Dim les as ListEntries
Set les = ActiveDocument.FormFields(1).DropDown.ListEntries

For Each

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

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

Add

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

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.

Optional arguments

Los siguientes argumentos son opcionales

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

Clear

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

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

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

Item

Devuelve un objeto ListEntry individual de una colección.

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