Objeto ContentControlListEntry (Word)
Um objeto ContentControlListEntry representa um item da lista em uma lista suspensa lista ou combinação caixa controle de conteúdo. Um objeto ContentControlListEntry é um membro da coleção ContentControlListEntries para um objeto ContentControl.
Comentários
Use o método Add da coleção ContentControlListEntries para criar um novo objeto ContentControlListEntry. Use o método Item, ou DropdownListEntries (Index), onde Index é a posição ordinal do item da lista de controle de conteúdo, para acessar um item de lista individuais dentro da coleção ContentControlListEntries.
Observação
[!OBSERVAçãO] Entradas da lista devem ter nomes para exibição exclusivos. Ao tentar adicionar um item de lista que já existe gera um erro em tempo de execução.
O exemplo a seguir usa o método Add para adicionar vários itens à lista a um novo controle de conteúdo de lista suspensa e, em seguida, usa o método Item para acessar o terceiro item na lista e alterar o texto para exibição.
Dim objCC As ContentControl
Dim objLE As ContentControlListEntry
Dim objMap As XMLMapping
Set objCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList)
'List items
objCC.DropdownListEntries.Add "Cat"
objCC.DropdownListEntries.Add "Dog"
objCC.DropdownListEntries.Add "Equine"
objCC.DropdownListEntries.Add "Monkey"
objCC.DropdownListEntries.Add "Snake"
objCC.DropdownListEntries.Add "Other"
Set objLE = objCC.DropdownListEntries.Item(3) objLE.Text = "Horse"
Utilize os métodos MoveUp e MoveDown para reposicionar itens em uma lista suspensa. O exemplo de código a seguir move o primeiro item para baixo, de forma que ele se torne o último item na lista, e também move o último item para cima, de forma que ele se torne o primeiro item na lista.
Dim objcc As ContentControl
Dim objLE1 As ContentControlListEntry
Dim objLE2 As ContentControlListEntry
Dim intCount As Integer
Set objcc = ActiveDocument.ContentControls.Item(3)
If objcc.Type = wdContentControlComboBox Or _
objcc.Type = wdContentControlDropdownList Then
'First item in the list.
Set objLE1 = objcc.DropdownListEntries.Item(1)
'Last item in the list.
Set objLE2 = objcc.DropdownListEntries.Item(objcc.DropdownListEntries.Count)
For intCount = 1 To objcc.DropdownListEntries.Count
'Move the first item down one.
objLE1.MoveDown
'Move the last item up one.
objLE2.MoveUp
Next
End If
Utilize o método Select para selecionar de forma programática um item de lista do controle de conteúdo. O exemplo de código a seguir insere um controle de conteúdo de lista suspensa no documento ativo, define o título e o texto do indicador, adiciona vários itens à lista e, em seguida, seleciona o último item inserido.
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
Use a propriedade Text para definir o texto exibido para um item de lista de controle de conteúdo e use a propriedade Value para definir um valor de programação que você pode usar posteriormente para processamento de um formulário. Por exemplo, você pode usar uma lista suspensa de controle de conteúdo para uma lista de produtos. A propriedade Text pode conter o nome do produto, um nome para exibição que um usuário pode facilmente reconhecer e entender. Propriedade Value pode conter o número do produto referente ao produto que corresponde a um número do produto em bancos de dados. Você pode usar número do produto a partir da propriedade Value para procurar informações do produto em bancos de dados. Além disso, o valor da propriedade Value é o que é enviado para os dados XML personalizados se o controle conteúdo seja mapeado com os dados XML no armazenamento de dados.
O exemplo de código a seguir define o valor do item 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
Utilize o método Delete para remover um item de um controle de conteúdo de lista suspensa ou caixa de combinação. O exemplo de código a seguir exclui um item de lista suspensa se o texto de exibição do item for "Other".
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
Métodos
| Nome |
|---|
| Delete |
| MoveDown |
| MoveUp |
| Select |
Propriedades
| Nome |
|---|
| Aplicativo |
| Creator |
| Índice |
| Responsável |
| Texto |
| Value |
Confira também
Referência do modelo de objeto do Word
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.