Статьи из блога
Как вставить поле номера страницы в надпись
Светлана спрашивает:
Имеется надпись. Как в надпись вставить поле, в котором отображался бы номер текущей страницы. Все это на языве VBA.
Светлана, вот пример макроса, который предложил :
Sub InsertFieldToCaption()
With Selection.ShapeRange(1).TextFrame
.TextRange.Fields.Add .TextRange, wdFieldPage, , True
End With
End Sub
Надпись при этом должна быть выбрана.
Рубрика: Макросы, Вопрос-Ответ
Метки: макросы | надписи | нумерация
Просмотров: 15063
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | надписи | нумерация
Просмотров: 15063
Подписаться на комментарии по 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
Форум
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 2
а вот такой вот способ предложу, вставку поля при создании надписи
With Activedocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes Set MyBox = .AddTextbox(msoTextOrientationHorizontal, _ X, Y, L, W) With MyBox .TextFrame.TextRange.Select .TextFrame.TextRange.Fields.Add Range:=Selection.Range, _ Type:=wdFieldEmpty, Text:="PAGE ", PreserveFormatting:=True End With End WithX - координата по горизонтали верхнего левого угла надписи от левого края страницы
Y - координата по вертикали верхнего левого угла надписи от верхнего края страницы
L - длина надписи
W - высота надписи
все эти величины перед использованием в коде должны быть переведены из сантиметров в пикселы, то есть их нужно умножить на 28.35
andrkar, для перевода сантиметров в пункты, существует функция CentimetersToPoints