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