Статьи из блога
Вставка текста с полями в нижний колонтитул
Максим спрашивает:
Подскажите, пожалуйста, как должен выглядеть макрос, вставляющий в документ (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
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Рубрика: Стили и форматирование, Макросы, Вопрос-Ответ
Метки: колонтитулы | макросы | поля
Просмотров: 19392
Подписаться на комментарии по RSS
Версия для печати
Метки: колонтитулы | макросы | поля
Просмотров: 19392
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Оставьте комментарий!