Klasse CaptionLabel - Beschriftungskategorie (Word VBA)

Die Klasse CaptionLabel stellt eine einzelne Beschriftungskategorie dar. Um eine CaptionLabel -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise


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

For Each

Hier ist ein Beispiel für die Verarbeitung der CaptionLabel -Elemente in einer Sammlung


Dim cll As CaptionLabel
For Each cll In CaptionLabels
	
Next cll

BuiltIn

True, wenn es sich bei der angegebenen Beschriftungskategorie um eine der integrierten Beschriftungskategorien in Word handelt.

Sie können integrierte Formatvorlagen für alle Sprachen mithilfe der WdBuiltinStyle-Konstanten oder für eine Sprache mithilfe des Formatvorlagennamens für die Sprachversion von angeben.


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

ChapterStyleLevel

Gibt die Überschriftenformatvorlage zurück, die ein neues Kapitel kennzeichnet, wenn Kapitelnummern in den angegebenen Beschriftungskategorie eingeschlossen sind.

Die Zahl 1 entspricht Überschrift 1, 2 entspricht Überschrift 2 usw.


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

Delete

Löscht die angegebene Beschriftungskategorie.


CaptionLabels(1).Delete

ID

Gibt eine WdCaptionLabelID -Konstante zurück, die den Typ für die angegebene Beschriftungs Beschriftung darstellt, wenn die Builtin-Eigenschaft des CaptionLabel -Objekts trueist. Mögliche Rückgabewerte sind wdCaptionEquation - Gleichung, wdCaptionFigure - Abbildung, wdCaptionTable - Tabelle.


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

IncludeChapterNumber

True, wenn eine Kapitelnummer mit Seitennummern oder einer Beschriftungskategorie einbezogen wird.


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

Name

Gibt den Namen des angegebenen Objekts zurück.


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

NumberStyle

Gibt die Zahlenformatvorlage für das CaptionLabel-Objekt zurück oder legt sie fest. Dies sind mögliche Werte für WdCaptionNumberStyle.

Einige der oben aufgeführten Konstanten stehen möglicherweise nicht zur Verfügung, abhängig von der Sprachunterstützung (beispielsweise US-Englisch), die Sie ausgewählt oder installiert haben.


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

Position

Gibt die Position des Texts der Beschriftungskategorie zurück oder legt sie fest. Mögliche Rückgabewerte sind wdCaptionPositionAbove - Die Beschriftungskategorie wird oben hinzugefügt, wdCaptionPositionBelow - Die Beschriftungskategorie wird unten hinzugefügt.


CaptionLabels(1).Position = wdCaptionPositionAbove

Separator

Gibt das Zeichen zwischen der Kapitelnummer und der Sequenznummer zurück oder legt dieses fest. Mögliche Rückgabewerte sind wdSeparatorColon - Doppelpunkt, wdSeparatorEmDash - Geviertstrich, wdSeparatorEnDash - Gedankenstrich, wdSeparatorHyphen - Trennstrich, wdSeparatorPeriod - Punkt.


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