Klasse HeaderFooter (Word VBA)

Die Klasse HeaderFooter stellt eine einzelne Kopf- oder Fußzeile dar.

Set

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

Dim hfr as HeaderFooter
Set hfr = Selection.HeaderFooter

Die folgenden Prozeduren können zum Festlegen der HeaderFooter Klassenvariablen verwendet werden : HeadersFooters.Item, Selection.HeaderFooter, Section.Footers und Section.Headers

For Each

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

Dim hfrFooter As HeaderFooter
For Each hfrFooter In Footers
	
Next hfrFooter

Eigenschaften

Exists True, wenn das angegebene HeaderFooter-Objekt vorhanden ist.

Selection.HeaderFooter.Exists = True

Index Gibt einen WdHeaderFooterIndex -Wert zurück, der die angegebene Kopf-oder Fußzeile in einem Dokument oder Abschnitt darstellt.

Dim whfIndex As WdHeaderFooterIndex
whfIndex = Selection.HeaderFooter.Index

IsEmpty

Dim booIsEmpty As Boolean
booIsEmpty = Selection.HeaderFooter.IsEmpty

IsHeader True , wenn das angegebene HeaderFooter -Objekt eine Kopfzeile ist.

Dim booIsHeader As Boolean
booIsHeader = Selection.HeaderFooter.IsHeader

LinkToPrevious True, wenn die angegebene Kopf- oder Fußzeile mit der entsprechenden Kopf- oder Fußzeile im vorherigen Abschnitt verknüpft ist.

Selection.HeaderFooter.LinkToPrevious = True

PageNumbers Gibt eine PageNumbers -Auflistung zurück, die alle Seitenzahlfelder darstellt, die in der angegebenen Kopf-oder Fußzeile enthalten sind.

Dim pnsPageNumbers As PageNumbers
Set pnsPageNumbers = Selection.HeaderFooter.PageNumbers

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

Dim objParent As Object
Set objParent = Selection.HeaderFooter.Parent

Range Gibt ein Range -Objekt zurück, das den Teil eines Dokuments darstellt, der in der angegebenen Kopf-oder Fußzeile enthalten ist.

Dim rngRange As Range
Set rngRange = Selection.HeaderFooter.Range

Shapes Gibt eine Shapes -Auflistung zurück, die alle Shape -Objekte in einer Kopf-oder Fußzeile darstellt.

Dim shpsShapes As Shapes
Set shpsShapes = Selection.HeaderFooter.Shapes

HeadersFooters.Count Gibt eine lange , die die Anzahl der Kopf-und/oder Fußzeilen in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Sections(1).Headers.Count

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

Dim objParent As Object
Set objParent = ActiveDocument.Range.Sections(1).Headers.Parent