Classe ContentControlListEntries (Word VBA)

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. Para usar uma variável de classe ContentControlListEntries, ela primeiro precisa ser instanciada por exemplo

Dim ccls as ContentControlListEntries
Set ccls = ActiveDocument.Range.ContentControls(1).DropdownListEntries

Add

Adiciona um novo item de lista a um controle de conteúdo de caixa de combinação ou lista suspensa e retorna um objeto ContentControlListEntry .

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

Add (Text, Value, Index)

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"

Arguments

O seguinte argumento é necessário

Text (String) - Especifica o texto de exibição do item de lista. Corresponde à propriedade Text de um objeto ContentControlListEntry.

Optional arguments

Os seguintes argumentos são opcionais

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

Clear

Limpa todos os itens de um controle de conteúdo de caixa de combinação ou lista suspensa.

Dim objCC As ContentControl 
 
Set objCC = ActiveDocument.ContentControls(1) 
 
objCC.DropdownListEntries.Clear

Count

Retorna o número de itens na coleção ContentControlListEntries. Long somente leitura.

Dim lngCount As Long
lngCount = ActiveDocument.Range.ContentControls(1).DropdownListEntries.Count

Item

Retorna um objeto ContentControlListEntry que representa o item especificado na coleção.

Item (Index)

Index: Especifica a posição ordinal do objeto na coleção.

Dim ccl As ContentControlListEntry
Set ccl = ActiveDocument.Range.ContentControls(1).DropdownListEntries(Index:=1)