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)
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
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"