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