HeaderFooter.LinkToPrevious-Eigenschaft (Word)

  • Artikel

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.

HinwBemerkungeneise

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

HeaderFooter-Objekt

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.