Clase CaptionLabel (Word VBA)

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

Los principales procedimientos de la clase CaptionLabel son Delete y CaptionLabels.Add

Set

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, CaptionLabels.Item y Application.CaptionLabels

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

Métodos

Los principales métodos de la clase CaptionLabel son

Delete - Elimina la etiqueta de título especificada.

CaptionLabels(1).Delete

CaptionLabels.Add - Devuelve un objeto CaptionLabel que representa una etiqueta de título personalizada.

Dim strName As String: strName =  
Dim cll As CaptionLabel
Set cll = CaptionLabels.Add(Name:=strName)

Propiedades

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

Dim booBuiltIn As Boolean
booBuiltIn = CaptionLabels(1).BuiltIn

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.

CaptionLabels(1).ChapterStyleLevel =

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.

Dim wclID As WdCaptionLabelID
wclID = CaptionLabels(1).ID

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

CaptionLabels(1).IncludeChapterNumber = True

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.

CaptionLabels(1).NumberStyle = wdCaptionNumberStyleArabic

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

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

Position Devuelve o establece la posición del texto de la etiqueta de título.

CaptionLabels(1).Position = wdCaptionPositionAbove

Separator Devuelve o establece el carácter entre el número de capítulo y el número de secuencia.

CaptionLabels(1).Separator = wdSeparatorColon

CaptionLabels.Count Devuelve un Long que representa el número de etiquetas de título de la colección.

Dim lngCount As Long
lngCount = CaptionLabels.Count

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

Dim objParent As Object
Set objParent = CaptionLabels.Parent