Clase ContentControl (Word VBA)

Un control de contenido individual.

Los principales procedimientos de la clase ContentControl son Copy, Delete y ContentControls.Add

Set

Para usar una variable de clase ContentControl, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase ContentControl : ParentContentControl, ContentControls.Add, ContentControls.Item, Range.ParentContentControl, Document.ContentControls, Document.SelectContentControlsByTag, Document.SelectContentControlsByTitle, Document.SelectLinkedControls, Document.SelectUnlinkedControls y Range.ContentControls

For Each

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

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

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Format with its procedures Color, DateDisplayFormat, DateStorageFormat y DefaultTextStyle

Métodos

Los principales métodos de la clase ContentControl son

Copy - Copia el control de contenido del documento activo en el Portapapeles.

ActiveDocument.Range.ContentControls(1).Copy

Delete - Elimina el control de contenido especificado y el contenido de dicho control.

ActiveDocument.Range.ContentControls(1).Delete

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

Dim ccl As ContentControl
Set ccl = ActiveDocument.Range.ContentControls.Add()

Otros Métodos

SetCheckedSymbol - Establece el símbolo utilizado para representar el estado activado del control de contenido de una casilla de verificación.

Dim lngCharacterNumber As Long: lngCharacterNumber =  
ActiveDocument.Range.ContentControls(1).SetCheckedSymbol CharacterNumber:=lngCharacterNumber

SetPlaceholderText - Establece el texto de marcador de posición que se mostrará en el control de contenido hasta que el usuario escriba su propio texto.

ActiveDocument.Range.ContentControls(1).SetPlaceholderText

SetUncheckedSymbol - Establece el símbolo usado para representar el estado desactivado del control de contenido de una casilla de verificación.

Dim lngCharacterNumber As Long: lngCharacterNumber =  
ActiveDocument.Range.ContentControls(1).SetUncheckedSymbol CharacterNumber:=lngCharacterNumber

Propiedades

AllowInsertDeleteSection Obtiene o establece si los usuarios pueden agregar o quitar secciones del control de contenido de sección de repetición especificado mediante la interfaz de usuario.

ActiveDocument.Range.ContentControls(1).AllowInsertDeleteSection = True

Appearance Devuelve o establece la apariencia del control de contenido.

ActiveDocument.Range.ContentControls(1).Appearance = wdContentControlBoundingBox

BuildingBlockCategory Devuelve o establece una cadena que representa la categoría de un control de contenido de bloque de creación.

ActiveDocument.Range.ContentControls(1).BuildingBlockCategory =

BuildingBlockType Devuelve o establece una constante WdBuildingBlockTypes que representa el tipo de bloque de creación para un control de contenido de bloque de creación.

ActiveDocument.Range.ContentControls(1).BuildingBlockType = wdTypeAutoText

Checked Devuelve o establece un valor Boolean que representa el estado actual (activado/desactivado) de una casilla de verificación.

ActiveDocument.Range.ContentControls(1).Checked = True

DateCalendarType Devuelve o establece una constante WdCalendarType que representa el tipo de calendario de un control de contenido de calendario.

ActiveDocument.Range.ContentControls(1).DateCalendarType = wdCalendarArabic

DateDisplayLocale Devuelve un WdLanguageID que representa el formato de idioma de la fecha que se muestra en un control de contenido de fecha.

ActiveDocument.Range.ContentControls(1).DateDisplayLocale = wdAfrikaans

DropdownListEntries Devuelve una colección ContentControlListEntries que representa los elementos de un control de contenido de lista desplegable o de un control de contenido de cuadro combinado.

Dim cclsDropdownListEntries As ContentControlListEntries
Set cclsDropdownListEntries = ActiveDocument.Range.ContentControls(1).DropdownListEntries

ID Devuelve una cadena que representa la identificación de un control de contenido.

Dim strID As String
strID = ActiveDocument.Range.ContentControls(1).ID

Level Devuelve el nivel del control de contenido, independientemente de si el control de contenido rodea el texto, los párrafos, las celdas de tabla o las filas de la tabla; o si está insertado.

Dim wccLevel As WdContentControlLevel
wccLevel = ActiveDocument.Range.ContentControls(1).Level

LockContentControl Devuelve o establece un valor Boolean que indica si el usuario puede eliminar un control de contenido del documento activo.

ActiveDocument.Range.ContentControls(1).LockContentControl = True

LockContents Devuelve o establece un valor Boolean que indica si el usuario puede editar el contenido de un control de contenido.

ActiveDocument.Range.ContentControls(1).LockContents = True

MultiLine Devuelve un valor Boolean que indica si un control de contenido de texto permite varias líneas de texto.

ActiveDocument.Range.ContentControls(1).MultiLine = True

Parent Devuelve un objeto Object que representa el objeto primario del objeto ContentControl especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.ContentControls(1).Parent

ParentContentControl Devuelve un ContentControl que representa el control de contenido primario de un control de contenido que está anidado dentro de un control de texto enriquecido o un control de grupo.

Dim cclParentContentControl As ContentControl
Set cclParentContentControl = ActiveDocument.Range.ContentControls(1).ParentContentControl

PlaceholderText Devuelve un objeto BuildingBlock que representa el texto de marcador de posición de un control de contenido.

Dim bbkPlaceholderText As BuildingBlock
Set bbkPlaceholderText = ActiveDocument.Range.ContentControls(1).PlaceholderText

Range Devuelve un rango que representa el contenido del control de contenido del documento activo.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.ContentControls(1).Range

RepeatingSectionItems Devuelve la colección de elementos de sección de repetición en el control de contenido de sección de repetición especificado.

Dim rsiRepeatingSectionItems As RepeatingSectionItemColl
Set rsiRepeatingSectionItems = ActiveDocument.Range.ContentControls(1).RepeatingSectionItems

RepeatingSectionItemTitle Devuelve o establece el nombre de los elementos de la sección de repetición utilizados en el menú contextual asociado con el control de contenido de sección de repetición especificado.

ActiveDocument.Range.ContentControls(1).RepeatingSectionItemTitle =

ShowingPlaceholderText Devuelve un valor Boolean que indica si se muestra el texto de marcador de posición para el control de contenido.

Dim booShowingPlaceholderText As Boolean
booShowingPlaceholderText = ActiveDocument.Range.ContentControls(1).ShowingPlaceholderText

Tag Devuelve o establece una cadena que representa un valor para identificar un control de contenido.

ActiveDocument.Range.ContentControls(1).Tag =

Temporary Devuelve o establece un valor Boolean que representa si se va a quitar un control de contenido del documento activo cuando el usuario edita el contenido del control.

ActiveDocument.Range.ContentControls(1).Temporary = True

Title Devuelve o establece una cadena que representa el título de un control de contenido.

ActiveDocument.Range.ContentControls(1).Title =

Type Devuelve o establece una WdContentControlType que representa el tipo de un control de contenido.

ActiveDocument.Range.ContentControls(1).Type = wdContentControlBuildingBlockGallery

XMLMapping Devuelve un objeto XMLMapping que representa la asignación de un control de contenido a datos XML en el almacén de datos de un documento.

Dim xmlXMLMapping As XMLMapping
Set xmlXMLMapping = ActiveDocument.Range.ContentControls(1).XMLMapping

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

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

ContentControls.Parent Devuelve un objeto Object que representa el objeto primario del objeto ContentControls especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.ContentControls.Parent