Clase AutoCaption - título que puede agregarse automáticamente (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. Para usar una variable de clase AutoCaption, primero debe ser instanciado, por ejemplo

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

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