Partager via


Propriété ContentControlListEntry.Text (Word)

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

Syntaxe

expression. Texte

Expression Expression qui renvoie un objet ContentControlListEntry .

Remarques

Entrées de liste doivent avoir des noms complets uniques. Tentative de modification de la propriété Text une chaîne qui existe déjà dans la liste des entrées génère une erreur d'exécution.

Exemple

Cet exemple montre comment mettre en majuscule le premier caractère, s'il est en minuscule, dans le texte d'affichage de chaque élément de liste.

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

Cet exemple montre comment définir la valeur de l'élément de liste selon le contenu du texte d'affichage.

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

Voir aussi

Objet ContentControlListEntry

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.