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

Вставка текста с полями в нижний колонтитул

Максим спрашивает:

Подскажите, пожалуйста, как должен выглядеть макрос, вставляющий в документ (Word-2003) нижний колонтитул примерно такого содержания - "Это мой документ, стр. ## из №№"? У меня не получается вставить одновременно и текст, и два поля, получается либо одно поле, либо текст.

Следующий макрос может решить эту задачу:

Sub TextFieldToFooter()
'  Вставка в нижний колонтитул всех разделов документа
'  текста вида "Это мой документ, стр. ## из №"
Dim hfRange As Range 'диапазон колонтитулов
Dim oSection As Section 'объявляем переменную для раздела
For Each oSection In ActiveDocument.Sections
   Set hfRange = oSection.Footers(wdHeaderFooterPrimary).Range
   With hfRange
      .Delete
      .Text = "Это мой документ, стр. "
      .MoveEnd wdCharacter, 1
      .Collapse wdCollapseEnd
      .Fields.Add Range:=hfRange, Type:=wdFieldPage, PreserveFormatting:=False
      .MoveEnd wdCharacter, 1
      .Collapse wdCollapseEnd
      .Text = " из "
      .MoveEnd wdCharacter, 1
      .Collapse wdCollapseEnd
      .Fields.Add Range:=hfRange, Type:=wdFieldNumPages, PreserveFormatting:=False
      .Fields.Update
   End With
Next oSection
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False  'скрываем коды полей
ActiveWindow.View.Type = wdPrintView    'переключаемся в режим Разметка страницы
ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit  'формат по ширине страницы
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

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

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

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

^ Наверх