Статьи из блога
Вставка будущей даты
Василий спрашивает:
Как написать макрос, чтобы будущая дата (текущая + 15 дней, к примеру) автоматически вставлялась в колонтитулы?
Используйте для этой цели автоматически исполняемые макросы. В данном случае подойдет макрос AutoNew (выполняется макрос при создании нового документа).
Ваши возможные действия:
- Создайте шаблон документа.
- Cоздайте закладку (MyDate) и определите в колонтитулах для нее место.
- Для вставки будущей даты можно использовать следующий код:
Sub AutoNew() With ActiveDocument.Bookmarks("MyDate").Range .InsertBefore Format(Date + 15, "dd mmmm yyyy") End With End Sub
- Сохраните шаблон.
На основе этого шаблона создавайте новые документы. Будущая дата будет автоматически вставляться на место закладки в колонтитуле.
Рубрика: Вопрос-Ответ, Макросы
Метки: AutoNew | дата и время | закладки | колонтитулы | макросы | шаблоны
Просмотров: 21257
Подписаться на комментарии по RSS
Версия для печати
Метки: AutoNew | дата и время | закладки | колонтитулы | макросы | шаблоны
Просмотров: 21257
Подписаться на комментарии по 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
Подскажите: по материалам вашего сайта я создал форму для вставки заданной даты прописью из 3 текстовых полей для, соответственно, ввода даты, месяца и года. Дата плюс ко всему меняется при помощи spinbutton. Мне необходимо, чтобы, скажем, в поле label отображался день недели, который соответствует выставляемой дате. С текущей датой проблем нет. По сути вопрос заключается в том, как установить произвольную дату, используя эти текстовые поля.
Вот мой вариант, что называется "в лоб"...
кусочек кода на изменение значения textbox (дата)
day_change = UserForm2.TextBox1.Value - strNowDay (<- переменная, хранящая текущую дату)
data = Format(Date + day_change, "dddd")
UserForm2.Label1.Caption = data
Думаю, что Вам нужно использовать функцию DateSerial, которая позволяет получить дату, используя номер года, месяца и дня. Номер года отсчитывается от 1 января 1900 года. Например, 27 ноября 2009 года запишется так: