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

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

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

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

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

 

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

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

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

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

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
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

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

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

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

^ Наверх