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