Clase AutoCaption (Word VBA)

La clase AutoCaption representa un único título que puede agregarse automáticamente al insertar elementos como tablas, imágenes u objetos OLE en un documento.

Set

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

Dim acn as AutoCaption
Set acn = AutoCaptions(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase AutoCaption : AutoCaptions.Item y Application.AutoCaptions

For Each

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

Dim acn As AutoCaption
For Each acn In AutoCaptions
	
Next acn

AutoInsert

True si se agrega un título automáticamente al insertar el elemento en un documento.

AutoCaptions("Microsoft Word Table").AutoInsert = True 
Selection.Collapse Direction:=wdCollapseStart 
ActiveDocument.Tables.Add Range:=Selection.Range, _ 
 NumRows:=2, NumColumns:=2

CaptionLabel

Devuelve o establece el título ("ilustración", "Tabla" o "Ecuación", por ejemplo) de la etiqueta del título especificado.

Esta propiedad puede establecerse en una cadena o una constante WdCaptionLabelID .

Dim acLoop As AutoCaption 
 
For Each acLoop In AutoCaptions 
 If acLoop.AutoInsert = True Then MsgBox acLoop.Name _ 
 & vbCr & "Label = " & acLoop.CaptionLabel.Name 
Next acLoop

Index

Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim lngIndex As Long
lngIndex = AutoCaptions(1).Index

Name

Devuelve o establece el nombre del objeto especificado.

Dim strName As String
strName = AutoCaptions(1).Name

Parent

Devuelve un objeto Object que representa el objeto primario del objeto AutoCaption especificado.

Dim objParent As Object
Set objParent = AutoCaptions(1).Parent

AutoCaptions.CancelAutoInsert

Evita que Word agregue títulos automáticamente a cualquier tipo de elemento.

AutoCaptions.CancelAutoInsert

AutoCaptions.Count

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

Dim lngCount As Long
lngCount = AutoCaptions.Count

AutoCaptions.Item

Devuelve un objeto AutoCaption individual de una colección.

Sintaxis : expression.Item (Index)

Index: El objeto individual que se va a devolver.

Dim acn As AutoCaption
Set acn = AutoCaptions(Index:=1)

AutoCaptions.Parent

Devuelve un objeto Object que representa el objeto primario de la colección AutoCaptions especificada.

Dim objParent As Object
Set objParent = AutoCaptions.Parent