Как написать макрос, чтобы будущая дата (текущая + 15 дней, к примеру) автоматически вставлялась в колонтитулы?
Используйте для этой цели автоматически исполняемые макросы. В данном случае подойдет макрос AutoNew (выполняется макрос при создании нового документа).
Ваши возможные действия:
re>Sub AutoNew() With ActiveDocument.Bookmarks("MyDate").Range .InsertBefore Format(Date + 15, "dd mmmm yyyy") End With End Sub
На основе этого шаблона создавайте новые документы. Будущая дата будет автоматически вставляться на место закладки в колонтитуле.
Еще записи по вопросам использования Microsoft Word:
- вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 — решение проблемы с отображением символов на линейке
- Абзац с цветным фоном
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Белый текст на синем фоне в Word 2007
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод повторяющихся фрагментов текста в Word 2007
- Ввод часто повторяющихся фрагментов текста
- Вертикальное выравнивание текста
- Возможно ли запретить копирование текста из документа Word?
- Вопрос о работе с графиками (диаграммами) в Word
- Вопросы и ответы о гиперссылках в редакторе Word
Комментариев: 2
Денис
27.11.2009 в 00:20 | #1
Подскажите: по материалам вашего сайта я создал форму для вставки заданной даты прописью из 3 текстовых полей для, соответственно, ввода даты, месяца и года. Дата плюс ко всему меняется при помощи spinbutton. Мне необходимо, чтобы, скажем, в поле label отображался день недели, который соответствует выставляемой дате. С текущей датой проблем нет.
По сути вопрос заключается в том, как установить произвольную дату, используя эти текстовые поля. Вот мой вариант, что называется "в лоб". кусочек кода на изменение значения textbox (дата) day_change = UserForm2.TextBox1.Value — strNowDay (
27.11.2009 в 09:25 | #2
Думаю, что Вам нужно использовать функцию DateSerial, которая позволяет получить дату, используя номер года, месяца и дня. Номер года отсчитывается от 1 января 1900 года. Например, 27 ноября 2009 года запишется так:
re>DateSerial(109, 11, 27)
Создание колонтитулов
Колонтитул — это повторяющийся вверху или внизу каждой печатной страницы текст или графическое изображение. Колонтитулы могут включать, например, заголовок, дату, номер страницы или рисунок. Верхние и нижние колонтитулы появляются на распечатанных документах, а Видны на экране в режимах просмотра Предварительный просмотр (Print Preview) или Разметка страницы (Page Layout).
Колонтитулы первой страницы раздела могут быть пустыми или отличаться от остальных колонтитулов документа. Кроме того, можно установить разные колонтитулы для четных и нечетных страниц.
Word делит документ на разделы. Раздел — это группа страниц, которая имеет определенное оформление, включая поля, колонтитулы и нумерацию страниц. Курсор ввода может находиться в любом месте раздела во время создания для него колонтитула.
Раздел создается выбором команды Разрыв в меню Вставка (Insert, Break) (рис.53).
Рис. 53. Создание раздела
По умолчанию все страницы документа составляют один раздел. При выборе команды Колонтитулы в меню Вид (View, Header and Footer) Word переключается на режим просмотра Разметка страницы (Page Layout) и помещает курсор ввода в поле колонтитула.
Оформление колонтитула
- Выберите команду Колонтитулы в меню Вид (View, Header and Footer).
- Выберите команду Параметры страницы в меню Файл (File, Page Setup).
- Появляется диалоговое окно Параметры страницы (Page Setup), которое содержит закладку Макет (Layout) (рис. 54).
- Выберите опцию Различать колонтитулы первой страницы.
- Выберите по желанию опцию Различать колонтитулы Четных и нечетных страниц.
- Нажмите ОК, чтобы вернуться в область колонтитула и введите нужные значения.
В диалоговом окне Параметры страницы внешний вид листа отображается в поле Образец.
Рис. 54. Параметры колонтитулов
Закладка Макет диалогового окна Параметры страницы содержит также поля для определения начала разделов и вертикального выравнивания текста на странице. Поле Вертикальное выравнивание содержит опции:
| По верхнему краю | Выравнивание верха первого абзаца по верхнему краю поля |
| По центру | Выравнивание абзацев по центру страницы, посередине между верхним и нижним полями |
| По высоте | Равномерно распределяет абзацы между верхним и нижним полями. Верх первого абзаца выравнивается по верхнему, а низ последнего по нижнему краю страницы |
По умолчанию устанавливается выравнивание верха первого абзаца по верхнему краю поля.
При выборе команды Колонтитулы в меню Вид (View, Header and Footer) появляется поле, отведенное для колонтитула и панель Колонтитулы (рис. 55), где:
— переход от верхнего колонтитула к нижнему и обратно;
— переход к предыдущему колонтитулу;
— переход к следующему колонтитулу;
— для создания нового колонтитула по образцу предыдущего;
— вставка нумерации страниц;
— вставка числа страниц;
— формат номера страницы;
— вставка текущей даты;
— вставка текущего времени;
— вызов диалогового окна Параметры страницы;
— показать/спрятать текст основного документа;
— вернуться к редактированию документа;
— вставка элемента автотекста.
Рис. 55. Панель Колонтитулы
Текущие дата и время вводятся в текст колонтитулов в форме полей. Поле — это зарезервированное место в документе. Поле Дата и время Word обновляет автоматически, когда документ открыт, а также при печати документа.
- Поместите курсор ввода в место, куда будет введена дата или время.
- Нажмите кнопку Дата (Date) или кнопку Время (Time) на панели инструментов Колонтитулы (Header and Footer). Использование кнопок Дата или Время (Date, Time) на панели Колонтитулы
не предоставляет возможности изменения формата даты. Если необходимо изменить формат времени или даты, установленный по умолчанию, введите дату, выбрав команду Дата и время из меню Формат (Insert, Date and Time) и установив нужный формат.
В колонтитул можно вставить поле номера страницы, показывающее номер текущей страницы. По желанию поле номера страницу можно комбинировать с текстом. Например, слово "Страница" может предшествовать полю номера страницы.
Упражнение
Создание колонтитулов и нумерация страниц
- Выберите команду Колонтитулы в меню Вид.
- Нажмите кнопку Верхний/нижний колонтитул на панели инструментов Колонтитулы, чтобы перейти в нужный колонтитул.
- Напечатайте любой текст, например название организации.
- Примените нужное форматирование текста.
- Поместите курсор ввода в место, где будет находиться номер страницы.
- Выберите кнопку Номер страницы на панели Колонтитулы, чтобы ввести поле Страница.
- Выберите кнопку Закрыть на панели Колонтитулы после окончания.
Word позволяет быстро форматировать нумерацию страницы. При этом вы можете установить номера страниц вверху или внизу страницы и выровнять номера (влево, вправо, по центру).
Команда Номера страниц меню Вставка (Insert; Page Numbers) задает автоматическую нумерацию страниц документа (рис. 56). Word добавляет номер страницы как отдельный объект в определенное место колонтитула.
Рис. 56. Номера страниц
- Выберите команду Номера страниц меню Вставка (Insert, Page Numbers).
- Установите опции Положение и Выравнивание (Position и Alignment).
- Нажмите кнопку Формат (Format), выберите из открывшегося диалогового окна (рис. 57) формат номера страницы, включая опции Продолжить или Начать с. 4. Затем нажмите ОК.
Рис. 57. Формат номера страницы
Использование команды "Номера страниц" из меню "Вставка (Insert, Page Numbers)" для автоматической нумерации страниц в поле колонтитула при уже существующей нумерации приведет к повторной печати номера страницы.
