Klasse CaptionLabel (Word VBA)

Die Klasse CaptionLabel stellt eine einzelne Beschriftungskategorie dar.

Die wichtigste Prozeduren der Klasse CaptionLabel sind Delete und CaptionLabels.Add

Set

Um eine CaptionLabel -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der CaptionLabel Klassenvariablen verwendet werden : CaptionLabels.Add, CaptionLabels.Item und Application.CaptionLabels

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

Methoden

Die Hauptmethoden der Klasse CaptionLabel sind

Delete - Löscht die angegebene Beschriftungskategorie.

CaptionLabels(1).Delete

CaptionLabels.Add - Gibt ein CaptionLabel -Objekt zurück, das eine benutzerdefinierte Beschriftungs Beschriftung darstellt.

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

Eigenschaften

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

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

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

CaptionLabels(1).ChapterStyleLevel =

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.

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

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

CaptionLabels(1).IncludeChapterNumber = True

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.

CaptionLabels(1).NumberStyle = wdCaptionNumberStyleArabic

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen CaptionLabel-Objekts darstellt.

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

Position Gibt die Position des Texts der Beschriftungskategorie zurück oder legt sie fest.

CaptionLabels(1).Position = wdCaptionPositionAbove

Separator Gibt das Zeichen zwischen der Kapitelnummer und der Sequenznummer zurück oder legt dieses fest.

CaptionLabels(1).Separator = wdSeparatorColon

CaptionLabels.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Beschriftungen in der Auflistung darstellt.

Dim lngCount As Long
lngCount = CaptionLabels.Count

CaptionLabels.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen CaptionLabels-Objekts darstellt.

Dim objParent As Object
Set objParent = CaptionLabels.Parent