HOW TO：在文件中加入頁首和頁尾

您可以使用 Section 的 Headers 屬性和 Footers 屬性，在文件的頁首和頁尾 (Footer) 加入文字。 文件的每個區段都包含三個頁首和頁尾：

• wdHeaderFooterPrimary

• wdHeaderFooterEvenPages

• wdHeaderFooterFirstPage

文件層級自訂與應用程式層級增益集 (Add-In) 的程序不同。

**適用於：**本主題中的資訊適用於 Word 2007 和 Word 2010 的文件層級專案和應用程式層級專案。如需詳細資訊，請參閱依 Office 應用程式和專案類型提供的功能。

文件層級自訂

若要使用下列程式碼範例，請從專案中的 ThisDocument 類別執行。

若要在文件的頁尾加入文字

• 下列程式碼範例會針對要在文件每個區段的主頁尾插入的文字設定字型，然後將文字插入頁尾中。

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

若要在文件的頁首加入文字

• 下列程式碼範例會加入一個欄位，以在文件的每個頁首顯示頁碼，然後設定段落對齊，以使文字靠頁首右端對齊。

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

應用程式層級增益集

若要使用下列程式碼範例，請從專案中的 ThisAddIn 類別執行。

若要在文件的頁尾加入文字

• 下列程式碼範例會針對要在文件每個區段的主頁尾插入的文字設定字型，然後將文字插入頁尾中。 這個程式碼範例運用使用中文件。

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

若要在文件的頁首加入文字

• 下列程式碼範例會加入一個欄位，以在文件的每個頁首顯示頁碼，然後設定段落對齊，以使文字靠頁首右端對齊。 這個程式碼範例運用使用中文件。

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

請參閱

工作

HOW TO：建立新文件

HOW TO：擴充文件中的範圍

HOW TO：在文件中找到的項目之間執行迴圈