Klasse ListEntries (Word VBA)

Eine Auflistung von ListEntry -Objekten, die alle Elemente in einem Dropdown-Formularfeld darstellen. Um eine ListEntries -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

For Each

Hier ist ein Beispiel für die Verarbeitung der ListEntries -Elemente in einer Sammlung

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

Add

Gibt ein ListEntry -Objekt zurück, das ein Element darstellt, das einem Dropdown-Formularfeld hinzugefügt wird.

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

Ein benanntes Argument

Name (String) - Der Name des Elements des Dropdown-Formularfelds.

Optional arguments

Das folgendes Argument ist optional

Index (Long) - Eine Zahl, die die Position des Elements in der Liste darstellt.

Clear

Löscht alle Elemente aus einem Dropdown-Formularfeld.

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

Count

Gibt einen Wert vom Typ Long zurück, der die Anzahl der Listeneinträge in der Auflistung darstellt.

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

Item

Gibt ein einzelnes ListEntry -Objekt in einer Auflistung zurück.

Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

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