Klasse ContentControlListEntry (Word VBA)

Ein ContentControlListEntry-Objekt stellt ein Listenelement in einem Dropdownlisten- oder Kombinationsfeld-Inhaltssteuerelement dar.

Die wichtigste Prozeduren der Klasse ContentControlListEntry sind ContentControlListEntries.Add, Delete und Select

Set

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

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

Die folgenden Prozeduren können zum Festlegen der ContentControlListEntry Klassenvariablen verwendet werden : ContentControl.DropdownListEntries, ContentControlListEntries.Add und ContentControlListEntries.Item

For Each

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

Dim cclListEntry As ContentControlListEntry
For Each cclListEntry In ActiveDocument.Range.ContentControls(1).DropdownListEntries
	If cclListEntry.Text = "Other" Then cclListEntry.Delete
Next cclDropdownListEntry

Methoden

Die Hauptmethoden der Klasse ContentControlListEntry sind

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

Dim strText As String: strText =  
Dim ccl As ContentControlListEntry
Set ccl = ActiveDocument.Range.ContentControls(1).DropdownListEntries.Add(Text:=strText)

Delete - Löscht das angegebene Element in einem Kombinationsfeld- oder einem Dropdownlisten-Inhaltssteuerelement.

ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Delete

Select - Wählt den Listeneintrag in einem Dropdown-oder Kombinationsfeld-Inhaltssteuerelement aus und legt den Text des Inhaltssteuerelements auf den Wert des Elements fest.

ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Select

Eigenschaften

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

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

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

Dim objParent As Object
Set objParent = ActiveDocument.Range.ContentControls(1).DropdownListEntries.Parent

Index Gibt einen Wert vom Typ Long zurück, der die Ordnungsposition eines Listenelements für Inhaltssteuerelemente in der Auflistung von Listenelementen darstellt, oder legt diesen Wert fest.

ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Index =

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

Dim objParent As Object
Set objParent = ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Parent

Text Zurückgeben oder Festlegen einer Zeichenfolge , die den Anzeigetext eines Listenelements für eine Dropdownliste oder ein Kombinationsfeld-Inhaltssteuerelement darstellt.

ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Text =

Value Zurückgeben oder Festlegen einer Zeichenfolge , die den programmgesteuerten Wert eines Elements in einem Dropdownlisten-oder Kombinationsfeld-Inhaltssteuerelement darstellt.

ActiveDocument.Range.ContentControls(1).DropdownListEntries(1).Value =