ContentControlListEntry-Objekt (Word)

Ein ContentControlListEntry-Objekt stellt ein Listenelement in einem Dropdownlisten- oder Kombinationsfeld-Inhaltssteuerelement dar. Ein ContentControlListEntry -Objekt ist ein Element der ContentControlListEntries -Auflistung für ein ContentControl -Objekt.

HinwBemerkungeneise

Verwenden Sie die Add-Methode der ContentControlListEntries-Auflistung , um ein neues ContentControlListEntry-Objekt zu erstellen. Verwenden Sie die Item -Methode oder DropdownListEntries (Index), wobei Index die Ordnungsposition des Listenelements des Inhaltssteuerelements ist, um auf ein einzelnes Listenelement in der ContentControlListEntries -Auflistung zuzugreifen.

Hinweis

Listeneinträge müssen eindeutige Anzeigenamen aufweisen. Bei dem Versuch, ein bereits vorhandenes Listenelement hinzuzufügen, wird ein Laufzeitfehler angezeigt.

Im folgenden Codebeispiel werden mithilfe der Add-Methode einem neuen Dropdownlisten-Inhaltssteuerelement mehrere Listenelemente hinzugefügt. Dann wird mithilfe der Item-Methode auf das dritte Element in der Liste zugegriffen und der Anzeigetext geändert.

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" 
 
Set objLE = objCC.DropdownListEntries.Item(3) objLE.Text = "Horse" 

Verwenden Sie die MoveUp - und MoveDown-Methoden , um Elemente in einer Dropdownliste neu zu positionieren. Im folgenden Codebeispiel wird das erste Element nach unten verschoben, sodass es an letzter Stelle in der Liste aufgeführt wird, und das letzte Element wird nach oben verschoben, sodass es an erster Stelle in der Liste aufgeführt wird.

Dim objcc As ContentControl 
Dim objLE1 As ContentControlListEntry 
Dim objLE2 As ContentControlListEntry 
Dim intCount As Integer 
 
Set objcc = ActiveDocument.ContentControls.Item(3) 
 
If objcc.Type = wdContentControlComboBox Or _ 
 objcc.Type = wdContentControlDropdownList Then 
 
 'First item in the list. 
 Set objLE1 = objcc.DropdownListEntries.Item(1) 
 
 'Last item in the list. 
 Set objLE2 = objcc.DropdownListEntries.Item(objcc.DropdownListEntries.Count) 
 
 For intCount = 1 To objcc.DropdownListEntries.Count 
 'Move the first item down one. 
 objLE1.MoveDown 
 
 'Move the last item up one. 
 objLE2.MoveUp 
 Next 
 
End If

Verwenden Sie die Select-Methode , um programmgesteuert ein Inhaltssteuerelementlistenelement auszuwählen. Im folgenden Codebeispiel wird ein Dropdownlisten-Inhaltssteuerelement in das aktive Dokument eingefügt, der Titel und der Platzhaltertext festgelegt, der Liste mehrere Elemente hinzugefügt. Anschließend wird das zuletzt eingegebene Element ausgewählt.

Dim objCC As ContentControl 
Dim objCE As ContentControlListEntry 
Dim objMap As XMLMapping 
 
Set objCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList) 
objCC.Title = "My Favorite Animal" 
If objCC.ShowingPlaceholderText Then _ 
 objCC.SetPlaceholderText , , "Select your favorite animal " 
 
'List entries 
objCC.DropdownListEntries.Add "Cat" 
objCC.DropdownListEntries.Add "Dog" 
objCC.DropdownListEntries.Add "Horse" 
objCC.DropdownListEntries.Add "Monkey" 
objCC.DropdownListEntries.Add "Snake" 
 
Set objCE = objCC.DropdownListEntries.Add("Other") 
objCE.Select

Verwenden Sie die Text-Eigenschaft , um den Anzeigetext für ein Inhaltssteuerelement-Listenelement festzulegen, und verwenden Sie die Value-Eigenschaft , um einen programmgesteuerten Wert festzulegen, den Sie später für die Verarbeitung eines Formulars verwenden können. Sie können beispielsweise eine Dropdownliste für Inhaltssteuerelemente für eine Liste von Produkten verwenden. Die Text-Eigenschaft kann den Namen des Artikels enthalten, d. h., einen Anzeigenamen, den ein Benutzer problemlos wieder erkennt und versteht. Die Value-Eigenschaft kann die Artikelnummer für den Artikel enthalten, die einer Artikelnummer in einer Datenbank entspricht. Anschließend können Sie die Produktnummer aus der Value-Eigenschaft verwenden, um Produktinformationen in einer Datenbank nachzuschlagen. Der Wert der Value-Eigenschaft wird zudem an die benutzerdefinierten XML-Daten übertragen, wenn das Inhaltssteuerelement den XML-Daten im Datenspeicher zugeordnet wird.

Im folgenden Codebeispiel wird der Wert für das Element basierend auf dem Inhalt des Anzeigetexts festgelegt.

Dim objCc As ContentControl 
Dim objLe As ContentControlListEntry 
Dim strText As String 
Dim strChar As String 
 
Set objCc = ActiveDocument.ContentControls(3) 
 
For Each objLE In objCC.DropdownListEntries 
 If objLE.Text <> "Other" Then 
 strText = objLE.Text 
 objLE.Value = "My favorite animal is the " & strText & "." 
 End If 
Next

Verwenden Sie die Delete-Methode , um ein Element aus einer Dropdownliste oder einem Kombinationsfeld eines Inhaltssteuerelements zu entfernen. Im folgenden Codebeispiel wird ein Dropdown-Listenelement entfernt, wenn der Anzeigetext des Elements "Other" lautet.

Dim objCC As ContentControl 
Dim objCL As ContentControlListEntry 
 
For Each objCC In ActiveDocument.ContentControls 
 If objCC.Type = wdContentControlComboBox Or _ 
 objCC.Type = wdContentControlDropdownList Then 
 For Each objCL In objCC.DropdownListEntries 
 If objCL.Text = "Other" Then objCL.Delete 
 Next 
 End If 
Next 
 

Methoden

Name
Delete
MoveDown
MoveUp
Select

Eigenschaften

Name
Anwendung
Creator
Index
Parent
Text
Wert

Siehe auch

Referenz zum Word-Objektmodell

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.