Classe ContentControlListEntry (Word VBA)

Un objet ContentControlListEntry représente un élément de liste dans une liste déroulante liste ou une liste déroulante case contrôle de contenu. Pour utiliser une variable de classe ContentControlListEntry, elle doit d'abord être instanciée, par exemple

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

For Each

Voici un exemple de traitement des éléments ContentControlListEntry dans une collection

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

Delete

Supprime l'élément spécifié dans le contrôle de contenu de zone de liste déroulante ou de liste déroulante.

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

Cette propriété renvoie ou définit un type long qui représente la position ordinale d’un élément de liste de contrôle de contenu dans la collection d’éléments de liste.

Vous pouvez définir la propriété Index n'importe quelle valeur numérique pour modifier la position ordinale d'un élément dans une liste.

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

MoveDown

Déplace un élément dans un contrôle de contenu de liste déroulante ou de zone de liste déroulante d'un élément vers le bas, afin de le placer après l'élément qui le suivait à l'origine.

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

Déplace un élément dans un contrôle de contenu de liste déroulante ou de zone de liste déroulante d'un élément vers le haut, afin de le placer devant l'élément qui le précédait à l'origine.

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

Sélectionne l'entrée de liste dans un contrôle de contenu de liste déroulante ou de zone de liste déroulante et définit le texte du contrôle de contenu sur la valeur de l'élément.

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

Cette propriété renvoie ou définit une chaîne qui représente le texte d’affichage d’un élément de liste pour un contrôle de contenu de liste déroulante ou de zone de liste déroulante.

Entrées de liste doivent avoir des noms complets uniques.

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

Cette propriété renvoie ou définit une chaîne qui représente la valeur programmatique d’un élément dans un contrôle de contenu de liste déroulante ou de zone de liste déroulante.

Utilisez la propriété Value pour stocker les données que vous devrez utiliser au moment du traitement.

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