Método ContentControls.Add (Word)
Adiciona um novo controle de conteúdo do tipo especificado ao documento ativo e retorna um objeto ContentControl que representa o novo controle de conteúdo.
Sintaxe
expressão. Adicionar (Tipo, Intervalo)
Expressão Uma expressão que retorna um objeto ContentControls .
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
Type | Opcional | WdContentControlType | Especifica o tipo de controle de conteúdo a ser inserido no documento ativo. Se for omitido, o Microsoft Word insere um controle de conteúdo de rich text. |
Range | Opcional | Variant | Especifica onde será colocado o controle de conteúdo no documento ativo. Se for omitido, o Word coloca o controle de conteúdo na posição do ponto de inserção ou substitui a seleção atual. |
Valor de retorno
ContentControl
Comentários
É possível aninhar controles de conteúdo apenas dentro de controles de conteúdo de rich text, controles de conteúdo de galeria de blocos de construção e controles de conteúdo de grupo. Se o ponto de inserção ou a seleção atual estiver dentro de um controle de conteúdo de um tipo diferente, esse método gera um erro. Nesse caso, é possível mover o ponto de inserção ou utilizar o parâmetro Range para especificar um local no documento.
Exemplo
O exemplo a seguir cria um novo controle de conteúdo de lista suspensa e adiciona vários itens à lista.
Dim objCC As ContentControl
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"
objCC.DropdownListEntries.Add "Other"
Confira também
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.