Classe ContentControls (Word VBA)

Uma coleção de objetos ContentControl . Os controles de conteúdo são regiões associadas e potencialmente rotuladas em um documento que servem como contêineres para tipos específicos de conteúdo. Controles de conteúdo individuais podem consistir em conteúdo como datas, listas ou parágrafos de texto formatado. Para usar uma variável de classe ContentControls, ela primeiro precisa ser instanciada por exemplo

Dim ccs as ContentControls
Set ccs = ActiveDocument.Range.ContentControls

For Each

Aqui está um exemplo de processamento dos itens ContentControls em uma coleção.

Dim ccl As ContentControl
For Each ccl In ActiveDocument.Range.ContentControls
	
Next ccl

Add

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.

É 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.

Add (Type, Range)

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"

Arguments

Optional arguments

Os seguintes argumentos são opcionais

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

Aqui você pode encontrar os valores possíveis para WdContentControlType

Range (Range) - 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.

Count

Retorna o número de itens na coleção ContentControls. Somente leitura Long.

Dim lngCount As Long
lngCount = ActiveDocument.Range.ContentControls.Count

Item

Retorna um objeto ContentControl que representa o controle de conteúdo especificado dentro da coleção de controles de conteúdo em um documento.

Item (Index)

Index: Especifica a posição ordinal do controle de conteúdo a ser retornado.

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