Aaron erhält häufig Dokumente von anderen, in denen er das Erscheinungsbild des Dokuments standardisieren muss. Er kann eine Vorlage anhängen, mit der er Stile auf den Text im Dokument anwenden kann. Was er jedoch wirklich braucht, ist eine Möglichkeit, Standard-Kopf- und Fußzeilen an das Dokument anzuhängen. Er hat diese in seiner Vorlage definiert, aber beim Anhängen der Vorlage werden die Kopf- und Fußzeilen nicht hinzugefügt. Er fragt sich, ob es eine einfache Möglichkeit gibt, diesen Dokumenten Standard-Kopf- und Fußzeilen hinzuzufügen.

Wenn Sie eine Vorlage an ein vorhandenes Dokument anhängen, stellen Sie dem Dokument im Wesentlichen Zugriff auf die in der Vorlage gespeicherten Stile und Makros zur Verfügung. Die einzige Möglichkeit für das Dokument, die Eigenschaften der Vorlage auf Seiten- oder Abschnittsebene zu erfassen, besteht darin, ein Dokument basierend auf dieser Vorlage zu erstellen. Aus diesem Grund entscheiden sich viele Menschen für diese allgemeine Reihenfolge:

  1. Erstellen Sie ein brandneues Dokument basierend auf der Vorlage. (Dies ist das Zieldokument.)

  2. Öffnen Sie das von anderen erhaltene Dokument. die, die Sie standardisieren möchten. (Dies ist das Quelldokument.)

  3. Kopieren Sie den Text aus dem Quelldokument und fügen Sie ihn in das Zieldokument ein.

Wenn Sie diesen Weg aus irgendeinem Grund nicht gehen können, erstellen Sie am besten eine Reihe von Bausteinen, die den gewünschten Text in Ihrer Kopf- und Fußzeile definieren. Sie können dann Zeit sparen, indem Sie mithilfe der Bausteine ​​die Kopf- und Fußzeilen in jedes gewünschte Dokument einfügen – einschließlich des Dokuments, das Sie standardisieren möchten.

Wenn Sie möchten, können Sie schließlich ein Makro erstellen, um die gewünschten Kopf- und Fußzeilen hinzuzufügen. Das Makro muss nicht ausgefallen sein; Hier ist eine, die einfach standardisierten Kopf- und Fußzeilentext zu jedem Abschnitt im Dokument hinzufügt:

Sub MyHeadersAndFooters()

Dim i As Long

For i = 1 To ActiveDocument.Sections.Count         With ActiveDocument.Sections(i)

.Headers(wdHeaderFooterPrimary).Range.Text = "Header Text Here"

.Footers(wdHeaderFooterPrimary).Range.Text = "Footer Text Here"

End With     Next i End Sub

Um das Makro zu verwenden, ersetzen Sie einfach „Kopfzeilentext hier“ und „Fußzeilentext hier“ durch den gewünschten Kopf- und Fußzeilentext. Dieses Makro ist nur ein Ausgangspunkt, da es keine speziellen Stile anwendet oder Felder (z. B. Seitenzahlen) enthält, die Sie möglicherweise benötigen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (2728) gilt für Microsoft Word 2007, 2010, 2013 und 2016.