В сегодняшней статье мы представим вам 2 быстрых способа вставки дней или времени, оставшихся до крайнего срока, в ваш документ Word.
Время от времени, когда вы работаете над важным проектом, вы обнаружите, что вам нужно помнить о точных днях или времени, оставшихся до крайнего срока, чтобы скорректировать свой рабочий темп. Тогда будет хорошей идеей вставить дни или время, оставшееся до крайнего срока, в ваш документ Word, чтобы они могли напомнить вам о последнем оставшемся времени.
В следующем тексте мы хотели бы представить вам 2 метода использования макросов для расчета и получения значения.
Рассчитать количество дней, оставшихся до крайнего срока
- Первый и первыйost, поместите курсор в то место, куда вы хотите вставить число.
- Затем перейдите на вкладку «Разработчик».
- Затем нажмите «Visual Basic» в группе «Код», чтобы открыть редактор VBA. Кроме того, вы можете вместо этого нажать «Alt + F11», если вкладка «Разработчик» недоступна в вашем Word.
- Теперь нажмите «Обычный», а затем «Вставить».
- Далее выбираем «Модуль».
- Дважды щелкните новый модуль, чтобы открыть область редактирования с правой стороны.
- Затем вставьте туда следующие коды:
Sub CountDownfromTodayToDeadlineDate()
Dim dtDeadlineDate As Date
Dim lDaysLeft As Long
' Input the deadline date to calculate the date difference.
dtDeadlineDate = InputBox("Enter the deadline date", "Deadline Date", "For example:2017/2/14")
lDaysLeft = DateDiff("d", Now, dtDeadlineDate)
' Output the date difference from today to the deadline date in word document.
Selection.Text = "There are " & lDaysLeft & " days left from today to " & dtDeadlineDate & vbCrLf
End Sub
- Далее нажмите кнопку «Выполнить».
- Вас встретит диалоговое окно, подобное приведенному ниже:
Введите крайний срок в текстовое поле и нажмите «ОК».
Для удобства использования в будущем вы можете нажать «Макросы» на вкладке «Разработчик» и выбрать правильный макрос, а затем нажать «Выполнить». Это вызовет диалоговое окно.
Рассчитать время, оставшееся до крайнего срока
Иногда, помимо получения оставшихся дней, вам также может понадобиться знать, сколько времени у вас осталось до определенного времени. Тогда ревущий макрос — это то, что вам нужно.
- Повторите первые 8 шагов выше. Только вы должны заменить коды на следующие:
Sub CountDownfromNowToDeadlineTime()
Dim dtTimeNow As Date
Dim dtDeadlineTime As Date
Dim lTimeLeft As Long
Dim lHour As Long
Dim lMinute As Long
Dim lSecond As Long
' Get the time now and the deadline time.
dtTimeNow = TimeValue(Now)
dtDeadlineTime = InputBox("Enter the deadline time","Deadline Time", "For example:18:00:00")
' Calculate the time difference.
lTimeLeft = DateDiff("s", dtTimeNow, dtDeadlineTime)
lHour = lTimeLeft \ 3600
lTimeLeft = lTimeLeft - lHour * 3600
lMinute = lTimeLeft \ 60
lSecond = lTimeLeft - lMinute * 60
Selection.Text = "There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from now to " & dtDeadlineTime & vbCrLf
End Sub
- Не забудьте нажать кнопку «Выполнить».
- На этот раз у вас будет диалоговое окно «Время крайнего срока». Введите время крайнего срока, затем нажмите «ОК».
Сохранить файлы невредимыми
Чтобы сохранить целостность файлов и защитить их от повреждения, лучший и самый простой способ — часто делать резервные копии. Однако мы понимаем, что трудно придерживаться рутины, поэтому каждый день появляется так много сломанных файлов. Чтобы восстановить эти проблемные файлы, вам понадобится поврежденный инструмент восстановления Word.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая инструмент для исправления ошибок xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com