Classe ListEntries (Word VBA)

Uma coleção de objetos ListEntry que representa todos os itens em um campo de formulário suspenso. Para usar uma variável de classe ListEntries, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens ListEntries em uma coleção.

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

Add

Retorna um objeto ListEntry que representa um item adicionado a um campo de formulário suspenso.

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

O seguinte argumento é necessário

Name (String) - O nome do item de campo de formulário suspenso.

Optional arguments

The following argument is optional

Index (Long) - Um número que representa a posição do item na lista.

Clear

Remove todos os itens de um campo de formulário de lista suspensa.

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

Count

Retorna um Long que representa o número de entradas da lista na coleção. Somente leitura.

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

Item

Retorna um objeto ListEntry individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.

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