Klasse ContentControlListEntries (Word VBA)

Die ContentControlListEntries-Auflistung enthält ContentControlListEntry-Objekte, die die Elemente in einem Dropdownlisten- oder Kombinationsfeld-Inhaltssteuerelement darstellen. Um eine ContentControlListEntries -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise


Dim ccls as ContentControlListEntries
Set ccls = ActiveDocument.Range.ContentControls(1).DropdownListEntries

Add

Fügt einem Dropdownlisten-oder Kombinationsfeld-Inhaltssteuerelement ein neues Listenelement hinzu und gibt ein ContentControlListEntry -Objekt zurück.

Listeneinträge müssen eindeutige Anzeigenamen aufweisen.

Add (Text, Value, Index)


Dim objCC As ContentControl 
Dim objLE As ContentControlListEntry 
Dim objMap As XMLMapping 
 
Set objCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList) 
 
'List items 
objCC.DropdownListEntries.Add "Cat" 
objCC.DropdownListEntries.Add "Dog" 
objCC.DropdownListEntries.Add "Equine" 
objCC.DropdownListEntries.Add "Monkey" 
objCC.DropdownListEntries.Add "Snake" 
objCC.DropdownListEntries.Add "Other"

Arguments

Ein benanntes Argument

Text (String) - Gibt den Anzeigetext für den Listeneintrag an.

Optional arguments

Die folgenden Argumente sind optional

Value - String

Index (Long) - Gibt die Ordnungsposition des neuen Elements in der Liste an.

Clear

Löscht alle Elemente aus dem Dropdownlisten- oder Kombinationsfeld-Inhaltssteuerelement.


Dim objCC As ContentControl 
 
Set objCC = ActiveDocument.ContentControls(1) 
 
objCC.DropdownListEntries.Clear

Count

Gibt die Anzahl der in der ContentControlListEntries-Auflistung enthaltenen Elemente zurück.


Dim lngCount As Long
lngCount = ActiveDocument.Range.ContentControls(1).DropdownListEntries.Count

Item

Gibt ein ContentControlListEntry -Objekt zurück, das das angegebene Element in der Auflistung darstellt.

Item (Index)

Index: Gibt die Ordnungsposition des Objekts in der Auflistung zurück.


Dim ccl As ContentControlListEntry
Set ccl = ActiveDocument.Range.ContentControls(1).DropdownListEntries(Index:=1)