HeaderFooter-Objekt (Word)

Stellt eine einzelne Kopf- oder Fußzeile dar. Das HeaderFooter-Objekt ist ein Member der HeadersFooters-Auflistung . Die HeadersFooters-Auflistung enthält alle Kopf- und Fußzeilen im angegebenen Dokumentabschnitt.

Hinweise

Verwenden Sie Kopfzeilen (Index) oder Fußzeilen (Index), wobei index eine der WdHeaderFooterIndex-Konstanten ist (wdHeaderFooterEvenPages, wdHeaderFooterFirstPage oder wdHeaderFooterPrimary), um ein einzelnes HeaderFooter-Objekt zurückzugeben. Im folgenden Beispiel wird der Text der primären Kopf- und Fußzeile im ersten Abschnitt des aktiven Dokuments geändert.

With ActiveDocument.Sections(1) 
 .Headers(wdHeaderFooterPrimary).Range.Text = "Header text" 
 .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text" 
End With

Sie können auch ein einzelnes HeaderFooter-Objekt zurückgeben, indem Sie die HeaderFooter-Eigenschaft mit einem Selection-Objekt verwenden.

Hinweis

Sie können der HeadersFooters-Auflistung keine HeaderFooter-Objekte hinzufügen.

Verwenden Sie die DifferentFirstPageHeaderFooter-Eigenschaft mit dem PageSetup-Objekt , um eine andere erste Seite anzugeben. Im folgenden Beispiel wird in die Fußzeile der ersten Seite des aktiven Dokuments Text eingefügt.

With ActiveDocument 
 .PageSetup.DifferentFirstPageHeaderFooter = True 
 .Sections(1).Footers(wdHeaderFooterFirstPage) _ 
 .Range.InsertBefore _ 
 "Written by Joe Smith" 
End With

Verwenden Sie die OddAndEvenPagesHeaderFooter-Eigenschaft mit dem PageSetup-Objekt , um unterschiedliche ungerade und gerade Kopf- und Fußzeilen anzugeben. Wenn die OddAndEvenPagesHeaderFooter-EigenschaftTrue ist, können Sie mit wdHeaderFooterPrimary eine ungerade Kopf- oder Fußzeile und mit wdHeaderFooterEvenPages eine gerade Kopf- oder Fußzeile zurückgeben.

Verwenden Sie die Add-Methode mit dem PageNumbers-Objekt , um eine Seitenzahl zu einer Kopf- oder Fußzeile hinzuzufügen. Im folgenden Beispiel werden Seitenzahlen zur ersten Fußzeile im ersten Abschnitt des aktiven Dokuments hinzugefügt.

With ActiveDocument.Sections(1) 
 .Footers(wdHeaderFooterPrimary).PageNumbers.Add 
End With

Eigenschaften

Name
Application
Creator
Exists
Index
IsHeader
LinkToPrevious
PageNumbers
Parent
Range
Shapes

Siehe auch

Referenz zum Word-Objektmodell

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.