Gewusst wie: Hinzufügen von Kopf- und Fußzeilen zu Dokumenten

Aktualisiert: November 2007

Betrifft
Die Informationen in diesem Thema gelten nur für die angegebenen Projekte und Versionen von Visual Studio Tools for Office von Microsoft Office. Projekttyp Projekte auf Dokumentebene Projekte auf Anwendungsebene Microsoft Office-Version Word 2003 Word 2007 Weitere Informationen hierzu finden Sie unter Verfügbare Features nach Anwendung und Projekttyp.

Mithilfe der Headers-Eigenschaft und der Footers-Eigenschaft von Section können Sie den Kopf- und Fußzeilen eines Dokuments Text hinzufügen. Jeder Abschnitt eines Dokuments enthält drei Kopf- und Fußzeilen:

• wdHeaderFooterPrimary

• wdHeaderFooterEvenPages

• wdHeaderFooterFirstPage

Die Verfahren für Anpassungen auf Dokumentebene unterscheiden sich von denen für Add-Ins auf Anwendungsebene.

Anpassungen auf Dokumentebene

So fügen Sie Fußzeilen im Dokument Text hinzu

1. Legen Sie die Schriftart des Texts fest, der in die primäre Fußzeile jedes Abschnitts des Dokuments eingefügt werden soll.

   Dim section As Word.Section
   
   For Each section In Me.Sections
       section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
           .Range.Font.ColorIndex = Word.WdColorIndex.wdDarkRed
   
       section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
           .Range.Font.Size = 20
   

   foreach (Word.Section wordSection in this.Sections)
   {
       wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
           .Range.Font.ColorIndex = Word.WdColorIndex.wdDarkRed;
   
       wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
           .Range.Font.Size = 20;
   

2. Fügen Sie den Text in die Fußzeile ein.

       section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
           .Range.Text = "Confidential"
   Next
   

       wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
           .Range.Text = "Confidential";
   }
   

So fügen Sie Kopfzeilen im Dokument Text hinzu

1. Fügen Sie einen AutoText-Eintrag hinzu, der Seite X von Y in jeder Kopfzeile des Dokuments anzeigt.

   Dim section As Word.Section
   For Each section In Me.Sections
   
       section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Fields.Add( _
           section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range, _
           Word.WdFieldType.wdFieldEmpty, "AUTOTEXT  ""Page X of Y"" ", True)
   

   foreach (Word.Section section in this.Sections)
   {
       object fieldEmpty = Word.WdFieldType.wdFieldEmpty;
       object autoText = "AUTOTEXT  \"Page X of Y\" ";
       object preserveFormatting = true;
   
       section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range.Fields.Add(
           section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range,
           ref fieldEmpty, ref autoText, ref preserveFormatting);
   

2. Legen Sie die Absatzausrichtung so fest, dass der Text rechts mit der Fußzeile ausgerichtet ist.

       section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
           .Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight
   Next
   

       section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
           .Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight;
   }
   

Kompilieren des Codes

Wenn Sie diese Codebeispiele verwenden möchten, führen Sie sie von der ThisDocument-Klasse im Projekt aus.

Add-Ins auf Anwendungsebene

So fügen Sie den Fußzeilen eines Dokuments Text hinzu

1. Legen Sie die Schriftart des Texts fest, der in die primäre Fußzeile jedes Abschnitts des Dokuments eingefügt werden soll. In diesem Codebeispiel wird das aktive Dokument verwendet.

   Dim section As Word.Section
   Dim document As Word.Document = Me.Application.ActiveDocument
   
   For Each section In document.Sections
       section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
           .Range.Font.ColorIndex = Word.WdColorIndex.wdDarkRed
   
       section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
           .Range.Font.Size = 20
   

   Word.Document document = this.Application.ActiveDocument;
   foreach (Word.Section wordSection in document.Sections)
   {
       wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
           .Range.Font.ColorIndex = Word.WdColorIndex.wdDarkRed;
   
       wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
           .Range.Font.Size = 20;
   

2. Fügen Sie den Text in die Fußzeile ein.

       section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
           .Range.Text = "Confidential"
   Next
   

       wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
           .Range.Text = "Confidential";
   }
   

So fügen Sie Kopfzeilen im Dokument Text hinzu

1. Fügen Sie einen AutoText-Eintrag hinzu, der Seite X von Y in jeder Kopfzeile des Dokuments anzeigt. In diesem Codebeispiel wird das aktive Dokument verwendet.

   Dim section As Word.Section
   For Each section In Me.Application.ActiveDocument.Sections
   
       section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Fields.Add( _
           section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range, _
           Word.WdFieldType.wdFieldEmpty, "AUTOTEXT  ""Page X of Y"" ", True)
   

   foreach (Word.Section section in this.Application.ActiveDocument.Sections)
   {
       object fieldEmpty = Word.WdFieldType.wdFieldEmpty;
       object autoText = "AUTOTEXT  \"Page X of Y\" ";
       object preserveFormatting = true;
   
       section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range.Fields.Add(
           section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range,
           ref fieldEmpty, ref autoText, ref preserveFormatting);
   

2. Legen Sie die Absatzausrichtung so fest, dass der Text rechts mit der Fußzeile ausgerichtet ist.

       section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
           .Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight
   Next
   

       section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary]
           .Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight;
   }
   

Kompilieren des Codes

Wenn Sie diese Codebeispiele verwenden möchten, führen Sie sie von der ThisAddIn-Klasse im Projekt aus.

Siehe auch

Aufgaben

Gewusst wie: Erstellen neuer Dokumente

Gewusst wie: Erweitern von Bereichen in Dokumenten

Gewusst wie: Durchlaufen gefundener Elemente in Dokumenten