Вставка завтрашней даты

Источник: wordexpert
Антон Конкин

Представим себе ситуацию: вы готовите документ, в конец которого или в любое место, где находится курсор ввода, необходимо вставить завтрашнюю дату (например, вы заранее подготовили нужный документ). Стандартными средствами редактора Word можно вставить лишь текущую дату, либо ввести эту дату вручную.
Но можно поступить проще и написать простенький макрос для этих целей:

Sub insertDate()
With Selection
   .InsertAfter Format(Date + 1, "dd mmmm yyyy")
   .Collapse Direction:=wdCollapseEnd
End With
End Sub

Меняя в фрагменте кода (Date + 1, "dd mmmm yyyy") цифру, знак сложения (на знак вычитания) или формат даты можно соответственно изменять и требуемую дату для вставки.

 


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=8918