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

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.

Betrifft: Die Informationen in diesem Thema betreffen Projekte auf Dokument- und auf Anwendungsebene für Word 2007 und Word 2010. Weitere Informationen finden Sie unter Verfügbare Funktionen nach Office-Anwendung und Projekttyp.

Anpassungen auf Dokumentebene

Wenn Sie die folgenden Codebeispiele verwenden möchten, führen Sie sie über die ThisDocument-Klasse im Projekt aus.

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

• Im folgenden Codebeispiel wird die Schriftart des Texts festgelegt, der in die primäre Fußzeile jedes Abschnitts des Dokuments eingefügt werden soll, und anschließend wird Text in die Fußzeile eingefügt.

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

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

So fügen Sie Kopfzeilen im Dokument Text hinzu

• Im folgenden Codebeispiel wird ein Feld hinzugefügt, um die Seitennummer in der Kopfzeile jedes Dokuments anzuzeigen, und anschließend wird die Absatzausrichtung so festgelegt, dass der Text in der Kopfzeile am rechten Rand ausgerichtet wird.

  For Each section As Word.Section In Me.Sections
      Dim headerRange As Word.Range = section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
      headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage)
      headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight
  Next
  

  foreach (Word.Section section in this.Sections)
  {
      Word.Range headerRange = section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
      headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage);
      headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight;
  }
  

Add-Ins auf Anwendungsebene

Wenn Sie die folgenden Codebeispiele verwenden möchten, führen Sie sie über die ThisAddIn-Klasse im Projekt aus.

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

• Im folgenden Codebeispiel wird die Schriftart des Texts festgelegt, der in die primäre Fußzeile jedes Abschnitts des Dokuments eingefügt werden soll, und anschließend wird Text in die Fußzeile eingefügt. In diesem Codebeispiel wird das aktive Dokument verwendet.

  For Each section As Word.Section In Me.Application.ActiveDocument.Sections
      Dim footerRange As Word.Range = section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
      footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed
      footerRange.Font.Size = 20
      footerRange.Text = "Confidential"
  Next
  

  foreach (Word.Section wordSection in this.Application.ActiveDocument.Sections)
  {
      Word.Range footerRange = wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
      footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed;
      footerRange.Font.Size = 20;
      footerRange.Text = "Confidential";
  }
  

So fügen Sie Kopfzeilen im Dokument Text hinzu

• Im folgenden Codebeispiel wird ein Feld hinzugefügt, um die Seitennummer in der Kopfzeile jedes Dokuments anzuzeigen, und anschließend wird die Absatzausrichtung so festgelegt, dass der Text in der Kopfzeile am rechten Rand ausgerichtet wird. In diesem Codebeispiel wird das aktive Dokument verwendet.

  For Each section As Word.Section In Me.Application.ActiveDocument.Sections
      Dim headerRange As Word.Range = section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
      headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage)
      headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight
  Next
  

  foreach (Word.Section section in this.Application.ActiveDocument.Sections)
  {
      Word.Range headerRange = section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
      headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage);
      headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight;
  }
  

Siehe auch

Aufgaben

Gewusst wie: Erstellen neuer Dokumente

Gewusst wie: Erweitern von Bereichen in Dokumenten

Gewusst wie: Durchlaufen gefundener Elemente in Dokumenten