Klasse TableOfContents (Word VBA)

Die Klasse TableOfContents stellt ein einzelnes Inhaltsverzeichnis in einem Dokument dar.

Die wichtigste Prozeduren der Klasse TableOfContents sind Delete und TablesOfContents.Add

Set

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

Dim tocs as TableOfContents
Set tocs = ActiveDocument.TablesOfContents(Index:=1)

Die folgenden Prozeduren können zum Festlegen der TableOfContents Klassenvariablen verwendet werden : TablesOfContents.Add, TablesOfContents.Item und Document.TablesOfContents

For Each

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

Dim hs As HeadingStyle 
If ActiveDocument.TablesOfContents.Count >=1 Then 
    ActiveDocument.TablesOfContents(1).HeadingStyles.Add Style:="Title", Level:=2 
 For Each hs In _ 
 ActiveDocument.TablesOfContents(1).HeadingStyles 
 MsgBox hs.Style 
 Next hs 
End If

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

Page with its procedures IncludePageNumbers, RightAlignPageNumbers und UpdatePageNumbers

Methoden

Die Hauptmethoden der Klasse TableOfContents sind

Delete - Löscht das angegebene Inhaltsverzeichnis.

ActiveDocument.TablesOfContents(1).Delete

TablesOfContents.Add - Gibt ein TableOfContents -Objekt zurück, das ein Inhaltsverzeichnis darstellt, das einem Dokument hinzugefügt wurde.

Dim tocs As TableOfContents
Set tocs = ActiveDocument.TablesOfContents.Add(Range:=)

Andere Methoden

TablesOfContents.MarkEntry - Fügt ein TC-Feld nach dem angegebenen Bereich ein.

Dim fldMarkEntry As Field
Set fldMarkEntry = ActiveDocument.TablesOfContents.MarkEntry(Range:=)

Eigenschaften

HeadingStyles Gibt ein HeadingStyles -Objekt zurück, das zusätzliche Formatvorlagen darstellt, die zum Kompilieren eines Inhalts-oder Abbildungsverzeichnisses verwendet werden (andere Formate als die Überschrift 1-Überschrift 9 Formatvorlagen).

Dim hssHeadingStyles As HeadingStyles
Set hssHeadingStyles = ActiveDocument.TablesOfContents(1).HeadingStyles

HidePageNumbersInWeb Gibt zurück oder legt fest, ob Seitenzahlen in einem Inhaltsverzeichnis oder Abbildungsverzeichnis beim Veröffentlichen im Web ausgeblendet werden.

ActiveDocument.TablesOfContents(1).HidePageNumbersInWeb = True

LowerHeadingLevel Gibt die letzte Überschriftenebene für ein Inhaltsverzeichnis oder ein Abbildungsverzeichnis zurück oder legt Sie fest.

ActiveDocument.TablesOfContents(1).LowerHeadingLevel =

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

Dim objParent As Object
Set objParent = ActiveDocument.TablesOfContents(1).Parent

Range Gibt ein Range -Objekt zurück, das den Teil eines Dokuments darstellt, der im angegebenen Inhaltsverzeichnis enthalten ist.

Dim rngRange As Range
Set rngRange = ActiveDocument.TablesOfContents(1).Range

TabLeader Gibt das Zeichen zwischen den Einträgen und den Seitenzahlen in einem Index, Rechtsgrundlagenverzeichnis, Inhaltsverzeichnis oder Abbildungsverzeichnis zurück oder legt es fest.

ActiveDocument.TablesOfContents(1).TabLeader = wdTabLeaderDashes

TableID Gibt eine aus einem Buchstaben bestehende ID zurück, die zum Erstellen eines Inhaltsverzeichnisses aus TOC-Feldern verwendet wird.

ActiveDocument.TablesOfContents(1).TableID =

UpperHeadingLevel Gibt die oberste Überschriftenebene für ein Inhaltsverzeichnis zurück oder legt diese fest.

ActiveDocument.TablesOfContents(1).UpperHeadingLevel =

UseFields True, wenn zum Erstellen eines Inhaltsverzeichnisses oder eines Abbildungsverzeichnisses TC-Felder (Verzeichniseintrag) verwendet werden.

ActiveDocument.TablesOfContents(1).UseFields = True

UseHeadingStyles True, wenn zum Erstellen eines Inhaltsverzeichnisses integrierte Überschriftformatvorlagen verwendet werden.

ActiveDocument.TablesOfContents(1).UseHeadingStyles = True

UseHyperlinks Legt fest, ob die Einträge in einem Inhalts- oder Abbildungsverzeichnis bei der Veröffentlichung im Web als Hyperlinks formatiert werden sollen, oder gibt diese Information zurück.

ActiveDocument.TablesOfContents(1).UseHyperlinks = True

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

Dim lngCount As Long
lngCount = ActiveDocument.TablesOfContents.Count

TablesOfContents.Format Gibt die Formatierung für die Inhaltsverzeichnisse im angegebenen Dokument zurück oder legt diese Formatierung fest.

ActiveDocument.TablesOfContents.Format = wdTOCClassic

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

Dim objParent As Object
Set objParent = ActiveDocument.TablesOfContents.Parent