Programowe dodawanie nagłówków i stopek do dokumentów

Tekst można dodać do nagłówków i stopek w dokumencie przy użyciu Headers właściwości i Footers właściwości Section. Każda sekcja dokumentu zawiera trzy nagłówki i stopki:

• wdHeaderFooterPrimary

• wdHeaderFooterEvenPages

• wdHeaderFooterFirstPage

  Procedury różnią się w przypadku dostosowań na poziomie dokumentu i dodatków VSTO.

  Dotyczy: informacje w tym temacie dotyczą projektów na poziomie dokumentu i projektów dodatków VSTO dla programu Word. Aby uzyskać więcej informacji, zobacz Funkcje dostępne przez aplikacja pakietu Office lication i typ projektu.

Dostosowania na poziomie dokumentów

Aby użyć poniższych przykładów kodu, uruchom je z ThisDocument klasy w projekcie.

Aby dodać tekst do stopek w dokumencie

1. Poniższy przykład kodu ustawia czcionkę tekstu, która ma zostać wstawiona do podstawowej stopki każdego sekcji dokumentu, a następnie wstawia tekst do stopki.

   C#

   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";
   }
   

   VB

   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
   

Aby dodać tekst do nagłówków w dokumencie

1. Poniższy przykład kodu dodaje pole w celu wyświetlenia numeru strony w każdym nagłówku w dokumencie, a następnie ustawia wyrównanie akapitu tak, aby tekst był wyrównany do prawej strony nagłówka.

   C#

   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;
   }
   

   VB

   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
   

Dodatki VSTO

Aby użyć poniższych przykładów kodu, uruchom je z ThisAddIn klasy w projekcie.

Aby dodać tekst do stopek w dokumencie

1. Poniższy przykład kodu ustawia czcionkę tekstu, która ma zostać wstawiona do podstawowej stopki każdego sekcji dokumentu, a następnie wstawia tekst do stopki. W tym przykładzie kodu jest używany aktywny dokument.

   C#

   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";
   }
   

   VB

   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
   

Aby dodać tekst do nagłówków w dokumencie

1. Poniższy przykład kodu dodaje pole w celu wyświetlenia numeru strony w każdym nagłówku w dokumencie, a następnie ustawia wyrównanie akapitu tak, aby tekst był wyrównany do prawej strony nagłówka. W tym przykładzie kodu jest używany aktywny dokument.

   C#

   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;
   }
   

   VB

   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
   

Powiązana zawartość

• Instrukcje: Programowe tworzenie nowych dokumentów
• Instrukcje: Programowe rozszerzanie zakresów w dokumentach
• Instrukcje: Programowa pętla przez znalezione elementy w dokumentach