Klasse ListEntry (Word VBA)

Die Klasse ListEntry stellt ein Element in einem Dropdown-Formularfeld dar.

Set

Um eine ListEntry -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der ListEntry Klassenvariablen verwendet werden : DropDown.ListEntries, ListEntries.Add und ListEntries.Item

For Each

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

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

ListEntries.Add

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

Syntax : 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

Ein benanntes Argument

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

Das folgendes Argument ist optional

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

ListEntries.Clear

Löscht alle Elemente aus einem Dropdown-Formularfeld.

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

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

ListEntries.Item

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

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

ListEntries.Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ListEntries-Objekts darstellt.

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

Delete

Löscht den angegebenen Listeneintrag.

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

Index

Gibt einen Wert vom Typ Long zurück, der die Position eines Elements in einer Auflistung darstellt.

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

Name

Gibt den Namen des angegebenen Objekts zurück oder legt ihn fest.

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

Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ListEntry-Objekts darstellt.

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