Статьи из блога

Макрос вставки колонтитулов на нечетные страницы

Алена задала вопрос:

Как вставить колонтитулы на нечетных страницах документа?

Есть две возможности вставить колонтитул на нечетные страницы: в первый раздел документа (если он, например, единственный), или во все разделы документа.

 

Вот примеры макросов, позволяющие реализовать эти два способа.

1
2
3
4
5
6
7
8
Sub insertHFoddPages()
'Вставка нижнего колонтитула на нечетные страницы
'в первом разделе документа
Dim str As String
str = "Текст нижнего колонтитула на нечетной странице"
ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = True
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.text = str
End Sub

Если нужно вставить текст во все нижние колонтитулы во всех разделах документа, то используйте второй макрос:

1
2
3
4
5
6
7
8
9
10
11
Sub insertHFoddPages2()
'Вставка нижнего колонтитула
'на нечетных страницах во всех разделах документа
Dim str As String
Dim Sec As Section
str = "Текст нижнего колонтитула на нечетной странице"
ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = True
For Each Sec In ActiveDocument.Sections
    Sec.Footers(wdHeaderFooterPrimary).Range.Text = str
Next Sec
End Sub

Рубрика: Вопрос-Ответ, Макросы
Метки: | |
Просмотров: 17951
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Оставьте комментарий!

(обязательно)

контакты

 
^ Наверх