Klasse HeadingStyles (Word VBA)

Eine Auflistung von HeadStyle -Objekten, die die Formatvorlagen darstellen, die zum Kompilieren eines Abbildungs-oder Inhaltsverzeichnisses verwendet werden. Um eine HeadingStyles -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim hss as HeadingStyles
Set hss = ActiveDocument.TablesOfFigures(1).HeadingStyles

For Each

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

Dim hse As HeadingStyle
For Each hse In ActiveDocument.TablesOfFigures(1).HeadingStyles
	
Next hse

Add

Gibt ein HeadStyle -Objekt zurück, das eine neue Formatvorlage darstellt, die einem Dokument hinzugefügt wird.

Add (Style, Level)

Set myToc = ActiveDocument.TablesOfContents _ 
 .Add(Range:=ActiveDocument.Range(0, 0), _ 
 UseHeadingStyles:=True, UpperHeadingLevel:=1, _ 
 LowerHeadingLevel:=3) 
myToc.HeadingStyles.Add Style:="Title", Level:=2

Arguments

Hier sind die benannte Argumente :

Style (Style) - Die Formatvorlage, die hinzugefügt werden soll.

Level (Integer) - Eine Zahl, die die Ebene der Überschrift darstellt.

Count

Gibt eine lange , die die Anzahl der Überschriftenformatvorlagen in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.TablesOfFigures(1).HeadingStyles.Count

Item

Gibt ein einzelnes HeadStyle -Objekt in einer Auflistung zurück.

Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

Dim hse As HeadingStyle
Set hse = ActiveDocument.TablesOfFigures(1).HeadingStyles(Index:=1)