сделать в Ворде макросом колонтитул нижний

Автор Ципихович Эндрю, 04 февраля 2017, 13:31

Ципихович Эндрю

Здравствуйте, как сделать в Ворде макросом, чтобы в конце страницы последней строкой было, например
___________ А.А. Петров?

Эта вещь вроде колонтитулы нижние называется, но не сталкивался.

Администратор

Вставка текста в первый раздел, в нижний основной колонтитул:
Sub Макрос()
    ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "___________ А.А. Петров"
End Sub


Примечания

  • Колонтитулы есть в каждом разделе файла. Поэтому, если у вас несколько разделов в файле, то может потребоваться вставлять колонтитулы не в один раздел, а в несколько.
  • Колонтитулы есть трёх видов:
    1) основной  - wdHeaderFooterPrimary
    2) колонтитул первой страницы раздела (именно раздела, а не всего файла) - wdHeaderFooterFirstPage
    3) колонтитул чётной страницы - wdHeaderFooterEvenPages
    Поэтому это нужно помнить. Например, если вы вставили колонтитул, а его не видно, значит в файле нет какого-то колонтитула.