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.
Hinweise
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 |
|---|
| Application |
| 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.