Klasse ContentControlListEntry (Word VBA)

Ein ContentControlListEntry-Objekt stellt ein Listenelement in einem Dropdownlisten- oder Kombinationsfeld-Inhaltssteuerelement dar. 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)

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

Delete

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


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 
 

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.

Sie können die Index-Eigenschaft auf einen beliebigen numerischen Wert festlegen, um die Ordnungsposition eines Elements in einer Liste zu ändern.


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

MoveDown

Verschiebt ein Element in einem Dropdownlisten- oder Kombinationsfeld-Inhaltssteuerelement um ein Element nach unten, sodass es auf das Element folgt, das ursprünglich auf dieses Element folgte.


Dim objCC As ContentControl 
Dim objCL As ContentControlListEntry 
Dim intCount As Integer 
 
Set objCC = ActiveDocument.ContentControls.Item(3) 
 
If objCC.Type = wdContentControlComboBox Or _ 
 objCC.Type = wdContentControlDropdownList Then 
 
 Set objCL = objCC.DropdownListEntries.Item(1) 
 
 For intCount = 1 To objCC.DropdownListEntries.Count 
 objCL.MoveDown 
 Next 
 
End If

MoveUp

Verschiebt ein Element in einem Dropdownlisten- oder Kombinationsfeld-Inhaltssteuerelement um ein Element nach oben, sodass es von einem Element gefolgt wird, hinter dem es sich ursprünglich befand.


Dim objCC As ContentControl 
Dim objCL As ContentControlListEntry 
Dim intCount As Integer 
 
Set objCC = ActiveDocument.ContentControls.Item(3) 
 
If objCC.Type = wdContentControlComboBox Or _ 
 objCC.Type = wdContentControlDropdownList Then 
 
 Set objCL = objCC.DropdownListEntries.Item(objCC.DropdownListEntries.Count) 
 
 For intCount = 1 To objCC.DropdownListEntries.Count 
 objCL.MoveUp 
 Next 
 
End If

Select

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


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

Text

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

Listeneinträge müssen eindeutige Anzeigenamen aufweisen.


Dim objCC As ContentControl 
Dim objLE As ContentControlListEntry 
Dim strFirst As String 
 
For Each objCC In ActiveDocument.ContentControls 
 If objCC.Type = wdContentControlComboBox Or objCC.Type = wdContentControlDropdownList Then 
 For Each objLE In objCC.DropdownListEntries 
 strFirst = Left(objLE.Text, 1) 
 
 If strFirst = LCase(strFirst) Then 
 objLE.Text = UCase(strFirst) & Right(objLe.Text, Len(objLe.Text) - 1) 
 End If 
 Next 
 End If 
Next

Value

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

Verwenden Sie die Value-Eigenschaft, um Daten zu speichern, die Sie zur Verarbeitungszeit benötigen.


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