Classe ListEntry (Word VBA)

La classe ListEntry représente un élément d’un champ liste déroulante.

Set

Pour utiliser une variable de classe ListEntry, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ListEntry : DropDown.ListEntries, ListEntries.Add et ListEntries.Item

For Each

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

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

ListEntries.Add

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

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

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

Les arguments suivants sont facultatifs

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

ListEntries.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

ListEntries.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

ListEntries.Item

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

Syntaxe : expression.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

ListEntries.Parent

Renvoie un Object qui représente l'objet parent de l'objet ListEntries spécifié.

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

Delete

Supprime l'entrée de liste spécifiée.

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

Index

Renvoie un type long qui représente la position d'un élément dans une collection.

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

Name

Cette propriété renvoie ou définit le nom de l'objet spécifié.

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

Parent

Renvoie un Object qui représente l'objet parent de l'objet ListEntry spécifié.

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