HeadersFooters-Objekt (Word)

Eine Auflistung von HeaderFooter-Objekten , die die Kopf- oder Fußzeilen im angegebenen Abschnitt eines Dokuments darstellen.

Hinweise

Mit der Headers- oder Footers-Eigenschaft geben Sie die HeadersFooters-Auflistung zurück. Im folgenden Beispiel wird der Text der ersten Fußzeile im ersten Abschnitt des aktiven Dokuments angezeigt.

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) 
 If .Range.Text <> vbCr Then 
 MsgBox .Range.Text 
 Else 
 MsgBox "Footer is empty" 
 End If 
End With

Verwenden Sie Headers (Index) oder Footers (Index), wobei index eine der WdHeaderFooterIndex-Konstanten (wdHeaderFooterEvenPages, wdHeaderFooterFirstPage oder wdHeaderFooterPrimary) ist, um ein einzelnes HeaderFooter-Objekt zurückzugeben. Im folgenden Beispiel wird der Text der ersten Kopfzeile und der ersten 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.

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 Kate Edson" 
End With

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

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

With ActiveDocument.Sections(1) 
 .PageSetup.DifferentFirstPageHeaderFooter = True 
 .Footers(wdHeaderFooterPrimary).PageNumbers.Add _ 
 FirstPage:=True 
End With

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.