HeaderFooter.LinkToPrevious-Eigenschaft (Word)
True, wenn die angegebene Kopf- oder Fußzeile mit der entsprechenden Kopf- oder Fußzeile im vorherigen Abschnitt verknüpft ist. Boolescher Wert mit Lese-/Schreibzugriff.
Syntax
Ausdruck. LinkToPrevious
Ausdruck Ein Ausdruck, der ein HeaderFooter-Objekt zurückgibt.
Hinweise
Wenn eine Kopf- oder Fußzeile verknüpft ist, entspricht ihr Inhalt der vorherigen Kopf- oder Fußzeile. Da die LinkToPrevious-Eigenschaft standardmäßig auf True festgelegt ist, können dem gesamten Dokument Kopfzeilen, Fußzeilen und Seitennummern zugewiesen werden, indem Sie mit den Kopfzeilen, Fußzeilen und Seitenzahlen des ersten Abschnitts arbeiten. Im folgenden Beispiel werden den Kopfzeilen auf allen Seiten in allen Abschnitten des aktiven Dokuments Seitenzahlen hinzugefügt.
ActiveDocument.Sections(1) _
.Headers(wdHeaderFooterPrimary).PageNumbers.Add
Die LinkToPrevious-Eigenschaft ist für jede Kopf- oder Fußzeile individuell gültig. Zum Beispiel können Sie die LinkToPrevious-Eigenschaft für Kopfzeilen auf Seiten mit geraden Seitennummern auf True, aber für Fußzeilen auf Seiten mit geraden Seitennummern auf False festlegen.
Beispiel
Im ersten Teil dieses Beispiels wird ein neues Dokument mit zwei Abschnitten angelegt. Im zweiten Teil werden eindeutige Kopfzeilen für gerade und ungerade Seiten in den Abschnitten 1 und 2 des neuen Dokuments erstellt.
Documents.Add
With Selection
For j = 1 to 4
.TypeParagraph
.InsertBreak
.TypeParagraph
Next j
End With
With ActiveDocument
.Paragraphs(5).Range.InsertBreak Type:=wdSectionBreakNextPage
.PageSetup.OddAndEvenPagesHeaderFooter = True
End With
With ActiveDocument.Sections(2)
With .Headers(wdHeaderFooterPrimary)
.LinkToPrevious = False
.Range.InsertBefore "Section 2 Odd Header"
End With
With .Headers(wdHeaderFooterEvenPages)
.LinkToPrevious = False
.Range.InsertBefore "Section 2 Even Header"
End With
End With
With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary) _
.Range.InsertBefore "Section 1 Odd Header"
.Headers(wdHeaderFooterEvenPages) _
.Range.InsertBefore "Section 1 Even Header"
End With
Siehe auch
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.