Compartilhar via

Propriedade ContentControlListEntry.Text (Word)

  • Artigo

Retorna ou define um String que representa o texto de exibição de um item de lista para um controle drop-down combinação ou lista caixa conteúdo. Leitura/gravação.

Sintaxe

expressão. Texto

Expressão Uma expressão que retorna um objeto ContentControlListEntry .

Comentários

Entradas da lista devem ter nomes para exibição exclusivos. Tentando alterar a propriedade Text para uma cadeia de caracteres que já existe na lista de entradas gera um erro em tempo de execução.

Exemplo

O exemplo a seguir converte em maiúsculas o primeiro caractere, se ele estiver em minúsculas, no texto de exibição de cada item de lista.

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

O exemplo a seguir define o valor do item de lista com base no conteúdo do texto de exibição.

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

Confira também

Objeto ContentControlListEntry

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.