Clase ContentControls (Word VBA)

Una colección de objetos ContentControl . Para usar una variable de clase ContentControls, primero debe ser instanciado, por ejemplo


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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ContentControls en una colección.


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

Add

Agrega un nuevo control de contenido, del tipo especificado, al documento activo y devuelve un objeto ContentControl que representa el nuevo control de contenido.

Los controles de contenido sólo se pueden anidar dentro de controles de contenido de texto enriquecido, controles de contenido de galerías de bloques de creación y controles de contenido de grupo.

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

Los siguientes argumentos son opcionales

Type (WdContentControlType) - Especifica el tipo de control de contenido que se debe insertar en el documento activo.

Aquí puede ver valores posibles para WdContentControlType

Range - Range

Count

Devuelve el número de elementos de la colección ContentControls.


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

Item

Devuelve un objeto ContentControl que representa el control de contenido especificado dentro de la colección de controles de contenido de un documento.

Item (Index)

Index: Especifica la posición ordinal del control de contenido que se debe devolver.


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