Objeto ContentControlListEntries (Word)
A coleção ContentControlListEntries contém objetos ContentControlListEntry que representam os itens em uma lista suspensa ou um controle de conteúdo de caixa de combinação.
Comentários
Use o método Add para adicionar um item a uma caixa de combinação ou lista suspensa. O exemplo de código a seguir usa o método Add para adicionar vários itens de lista para um novo controle de conteúdo de lista suspensa.
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"
Use o método Item ou a propriedade DropdownListEntries de um objeto ContentControl para acessar um item de lista individuais dentro de uma coleção. O exemplo de código a seguir usa o método Item para acessar o terceiro item em uma lista e alterar o texto de exibição.
Observação
[!OBSERVAçãO] O exemplo de código a seguir pressupõe que o primeiro objeto ContentControl no documento ativo for uma caixa de combinação ou lista suspensa.
Dim objCC As ContentControl Dim objLE As ContentControlListEntry Dim objMap As XMLMapping Set objCC = ActiveDocument.ContentControls(1) Set objLE = objCC.DropdownListEntries.Item(3) objLE.Text = "Horse"
Use o método Clear para remover todos os itens de uma lista suspensa ou caixa de combinação. O exemplo de código a seguir limpa todos os itens do primeiro controle de conteúdo do documento ativo.
Observação
[!OBSERVAçãO] O exemplo de código a seguir supõe que o primeiro controle de conteúdo do documento ativo seja uma lista suspensa ou caixa de combinação.
Dim objCC As ContentControl Set objCC = ActiveDocument.ContentControls(1) objCC.DropdownListEntries.Clear
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.