Практическое руководство. Программное добавление верхних и нижних колонтитулов к документам

Текст в верхние и нижние колонтитулы документа можно добавить с помощью свойств Headers и Footers объекта Section.Каждый раздел документа содержит три верхних и нижних колонтитула:

• wdHeaderFooterPrimary

• wdHeaderFooterEvenPages

• wdHeaderFooterFirstPage

Процедуры для настроек уровня документа и надстроек уровня приложения различаются.

Применение. Сведения этого раздела применяются к проектам уровня документа и уровня приложения для Word 2013 и 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;
  }
  

См. также

Задачи

Практическое руководство. Программное создание документов

Практическое руководство. Программное расширение диапазонов в документах

Практическое руководство. Программный перебор найденных элементов в документах