Método ContentControlListEntries.Add (Word)
Inclui um novo item de lista em um controle de conteúdo de caixa de combinação ou lista suspensa e retorna um objeto ContentControlListEntry.
Sintaxe
expressão. Adicionar (Texto, Valor, Índice)
Expressão Uma expressão que retorna um objeto ContentControlListEntries .
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
Text | Obrigatório | String | Especifica o texto de exibição do item de lista. Corresponde à propriedade Text de um objeto ContentControlListEntry. |
Value | Opcional | String | Especifica o valor do item da lista. Corresponde à propriedade Value de um objeto ContentControlListEntry. Se for omitido, a propriedade Value é igual à propriedade Text. |
Index | Opcional | Long | Especifica a posição ordinal do novo item na lista. Se existir um item na posição especificada, o item existente será colocado em uma posição posterior na lista. Se for omitido, o novo item será adicionado ao final da lista. |
Valor de retorno
ContentControlListEntry
Comentários
[!OBSERVAçãO] Entradas da lista devem ter nomes para exibição exclusivos. A tentativa de adicionar um item de lista que já existe gera um erro em tempo de execução.
Exemplo
O exemplo de código a seguir cria um novo controle de conteúdo de lista suspensa e adiciona vários itens a ele.
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"
Confira também
Coleção ContentControlListEntries
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.