Classe ListEntries (Word VBA)

Collection d’objets ListEntry qui représentent tous les éléments dans un champ de formulaire de liste déroulante. Pour utiliser une variable de classe ListEntries, elle doit d'abord être instanciée, par exemple

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

For Each

Voici un exemple de traitement des éléments ListEntries dans une collection

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

Add

Renvoie un objet ListEntry qui représente un élément ajouté à un champ de formulaire de liste déroulante.

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 argument nommé

Name (String) - Nom de l'élément à ajouter dans le champ liste déroulante.

Optional arguments

Les arguments suivants sont facultatifs

Index (Long) - Nombre qui correspond à la position de l'élément dans la liste.

Clear

Retire la totalité des éléments d'un champ de formulaire de type liste déroulante.

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

Count

Renvoie un type long qui représente le nombre d'entrées de liste dans la collection.

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

Item

Renvoie un objet ListEntry spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

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