Clase CaptionLabel - etiqueta de título (Word VBA)

La clase CaptionLabel representa una sola etiqueta de título.

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

Dim cll as CaptionLabel
Set cll = CaptionLabels(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase CaptionLabel : CaptionLabels.Add y CaptionLabels.Item.

For Each

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

Dim cll As CaptionLabel
For Each cll In CaptionLabels
	
Next cll

BuiltIn

True si la etiqueta de título especificada es una de las etiquetas de título integradas en Word.

Puede especificar estilos integrados en todos los idiomas utilizando las constantes WdBuiltinStyle, o en un idioma con el nombre de estilo para la versión de idioma de Word.

ActiveDocument.Styles(wdStyleHeading1) 
ActiveDocument.Styles("Heading 1")

ChapterStyleLevel

Devuelve o establece el estilo de título que marca un nuevo capítulo cuando se incluyen números de capítulo con la etiqueta de título especificada.

El número 1 corresponde al título 1, 2 corresponde a título 2 y así sucesivamente.

With CaptionLabels(wdCaptionTable) 
 .IncludeChapterNumber = True 
 .ChapterStyleLevel = 2 
End With

Delete

Elimina la etiqueta de título especificada.

CaptionLabels(1).Delete

ID

Devuelve una constante WdCaptionLabelID que representa el tipo de la etiqueta de título especificada si la propiedad Builtin del objeto CaptionLabel es true. Posibles valores de retorno son wdCaptionEquation - Tenida, wdCaptionFigure - Averiguar, wdCaptionTable - Table.

For Each cl In CaptionLabels 
 If cl.BuiltIn = True Then MsgBox cl.Name & " " & cl.ID 
Next cl

IncludeChapterNumber

True si un número de capítulo se incluye con números de página o una etiqueta de título.

With CaptionLabels(wdCaptionFigure) 
 .IncludeChapterNumber = True 
 .ChapterStyleLevel = 2 
 .NumberStyle = wdCaptionNumberStyleUppercaseLetter 
End With 
Selection.InsertCaption Label:="Figure", Title:=": History"

Name

Devuelve el nombre del objeto especificado.

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

NumberStyle

Devuelve o establece el estilo de número para el objeto CaptionLabel. Aquí puede ver valores posibles para WdCaptionNumberStyle.

Algunas de las constantes indicadas anteriormente pueden no estar disponibles, según la compatibilidad de idioma, por ejemplo, Inglés (EE.UU.), que se haya seleccionado o instalado.

CaptionLabels(wdCaptionFigure).NumberStyle = _ 
 wdCaptionNumberStyleUppercaseLetter 
Selection.Collapse Direction:=wdCollapseEnd 
Selection.InsertCaption Label:=wdCaptionFigure

Position

Devuelve o establece la posición del texto de la etiqueta de título. Posibles valores de retorno son wdCaptionPositionAbove - El rótulo del epígrafe se agrega por encima, wdCaptionPositionBelow - El rótulo del epígrafe se agrega por debajo.

CaptionLabels(1).Position = wdCaptionPositionAbove

Separator

Devuelve o establece el carácter entre el número de capítulo y el número de secuencia. Posibles valores de retorno son wdSeparatorColon - Carácter de dos puntos, wdSeparatorEmDash - Carácter de guión enfatizado, wdSeparatorEnDash - Carácter de guión estándar, wdSeparatorHyphen - Carácter de guión, wdSeparatorPeriod - Carácter de punto.

With CaptionLabels("Figure") 
 .Separator = wdSeparatorColon 
 .IncludeChapterNumber = True 
End With 
Selection.InsertCaption "Figure"