Когда Аластер печатает документ, он хочет автоматически установить дату в этом документе на дату следующей среды. Например, если сегодня четверг, 13-е, Алистер хотел бы отобразить среду, 19-е, если документ напечатан сейчас или в любой день до самого 19-го включительно. Начиная со следующего четверга (20-го числа) Алистер хочет, чтобы напечатанная дата была 26-го числа и так далее.

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

Sub ForceWednesday()

Dim dMyDate As Date     dMyDate = Date     While WeekDay(dMyDate) <> 4         dMyDate = dMyDate + 1     Wend     Selection.TypeText Text:=Format(dMyDate, "mmmm d, yyyy")

End Sub

Когда вы запускаете макрос, он присваивает текущую дату переменной dMyDate. Эта переменная постоянно увеличивается до тех пор, пока день недели не станет 4 (среда). Затем дата форматируется и вводится в месте, где находится курсор.

Макрос можно легко изменить, чтобы дата следующей среды всегда указывалась в определенном месте документа. Все, что вам нужно сделать, это изменить его так, чтобы он выполнял поиск, скажем, закладки и заменял ее на отформатированную дату. Вы даже можете настроить Word так, чтобы макрос запускался во время события BeforePrint, что означает, что он будет выполняться непосредственно перед печатью.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (3849) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Forcing_the_Date_to_the_Next_Wednesday [Принуждение даты к следующей среде].