Как вставить будущую или прошлую дату в документ Word с помощью кодов VBA

В этой статье мы покажем вам интересный трюк, чтобы вставить будущую или прошлую дату в ваш документ Word с помощью кодов VBA.

Как правило, у нас нет проблем с вставкой текущей даты в наш документ Word. Тем не менее, время от времени мы могли бы готовиться к документу, который потребуется на следующей неделе, месяце или даже позже. Тогда вот проблема, которую вы не можете обойти. Как вы можете вставить будущую дату в файл Word? А иногда как насчет прошлого даже?

Поэтому мы считаем, что вы должны освоить этот полезный метод, чтобы лучше выполнять свои рабочие задачи.

Используйте коды VBA для вставки будущего или даты вставки

1. Для начала откройте документ Word.
2. Затем перейдите на вкладку «Разработчик».
3. Затем нажмите «Visual Basic», чтобы открыть редактор VBA. Если вкладка «Разработчик» недоступна на ленте Word, вы можете вместо этого нажать «Alt + F11», чтобы открыть редактор.
4. Теперь в редакторе нажмите «Обычный» слева.
5. Затем нажмите «Вставить» на панели инструментов.
6. Затем выберите «Модуль» из списка-меню.
7. Теперь дважды щелкните только что вставленный модуль, и справа появится область редактирования.
8. Просто вставьте туда следующие коды:

Sub InsertFutureOrPastDate()
  Dim strNumberOfDays As String

  ' Input the number of days you want to insert from today to the future or past date.
  strNumberOfDays = InputBox("Please input the number of days you want to insert", "future or past date", "Input here.For exemple,input 1 to insert the date of tomorrow")
  ' Insert the future or past date according to the inputed number of days
  If strNumberOfDays <> "" Then
    Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")
  End If       
End Sub

9. Затем нажмите кнопку «Сохранить» и закройте редактор VBA.
10. Теперь вернитесь к экрану документа Word и поместите курсор в то место, где идет будущая или прошедшая дата.
11. Затем снова нажмите вкладку «Разработчик».
12. И нажмите «Макросы» в группе «Код», чтобы открыть окно «Макросы». Опять же, если вкладка «Разработчик» не отображается, вам просто нужно нажать «Alt + F8».
13. Теперь в окне «Макросы» найдите и выберите макрос «InsertFutureOrPastDate».
14. Далее нажмите «Выполнить».
15. Затем вас встретит окно сообщения. Вы можете ввести число в текстовое поле в нижней части поля, чтобы представить количество дней, оставшихся до будущей даты. Например, если вы хотите вставить дату завтра, вы должны ввести «1». Точно так же, если вам нужна прошедшая дата, просто добавьте знак минус перед значением, например «-1» для вчерашнего дня.
16. Не забудьте нажать «ОК».

Примечание. В кодах «Selection.TypeText Text:=Format(Date + strNumberOfDays, «dddd, MMMM dd, yyyy»)» «dddd, MMMM dd, yyyy» представляют формат даты, где «M» означает «месяц» , «d» для «дня», «y» для «года» и «dddd» для «недели», поэтому вы можете изменить его по своему усмотрению.

Восстановите свои ценные файлы

Word подвержен сбоям, что подвергает наши файлы Word опасности. Время от времени некоторые из наших бесценных данных просто исчезают. Но то, что ушло, не ушло совсем. Вы можете сидеть и оплакивать потерю ваших важных файлов, или вы можете выбрать опытного поврежденный инструмент восстановления Word чтобы получить их.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая Исправление проблемы с файлом Excel xls и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com