Вставка завтрашней датыИсточник: 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") цифру, знак сложения (на знак вычитания) или формат даты можно соответственно изменять и требуемую дату для вставки. |