Статьи из блога
Как вставить поле подсчета страниц в колонтитул
Елена работает с документами, в которых титульный лист (первый по счету) не должен учитываться в общем количестве листов в документе. Количество страниц необходимо вывести в колонтитул. Елена создала автоматический макрос, который создает поле следующего вида - {={NUMPAGES}-1}, но затрудняется вставить его в колонтитул. Елена спрашивает: как можно вставить в колонтитул такое поле с помощью макроса?
Это можно сделать с помощью следующего макроса.
Обратите внимание: этот макрос очищает колонтитул от любого текста, который там содержится. Будьте внимательны!
Sub ins_HF_nested_fields() 'Вставка вложенного поля (общее кол-во страниц минус 1) в верхний колонтитул 'формула поля: { ={ numpages } - 1 } Dim myRange As Range Dim hfRange As Range Set myRange = ActiveDocument.Range(0, 0) ActiveDocument.ActiveWindow.View.ShowFieldCodes = True Set hfRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range With hfRange .Delete .Text = "Всего листов: " .MoveEnd wdCharacter, 1 .Collapse wdCollapseEnd .Select .Fields.Add Range:=hfRange, Type:=wdFieldExpression, PreserveFormatting:=False End With With Selection .MoveRight wdCharacter, 3 .Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages, PreserveFormatting:=False .TypeText " -1" .Fields.Update End With With ActiveDocument .Range(0, 0).Select .ActiveWindow.View.Type = wdPrintView .ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit .ActiveWindow.View.ShowFieldCodes = False End With End Sub
Если вы не знаете, как подключить к документу и применить эти макросы, изучите следующие заметки с сайта:
Рубрика: Вопрос-Ответ, Макросы
Метки: колонтитулы | макросы | нумерация | поля | статистика
Просмотров: 22620
Подписаться на комментарии по RSS
Версия для печати
Метки: колонтитулы | макросы | нумерация | поля | статистика
Просмотров: 22620
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Абзац с цветным фоном
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Белый текст на синем фоне в Word 2007
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод повторяющихся фрагментов текста в Word 2007
- Ввод часто повторяющихся фрагментов текста
- Вертикальное выравнивание текста
- Возможно ли запретить копирование текста из документа Word?
- Вопрос о работе с графиками (диаграммами) в Word
- Вопросы и ответы о гиперссылках в редакторе Word
Оставьте комментарий!