2 быстрых способа вставить дни или время, оставшееся до крайнего срока, в ваш документ Word

Поделись сейчас:

В сегодняшней статье мы представим вам 2 быстрых способа вставки дней или времени, оставшихся до крайнего срока, в ваш документ Word.

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

В следующем тексте мы хотели бы представить вам 2 метода использования макросов для расчета и получения значения.

Рассчитать количество дней, оставшихся до крайнего срока

  1. Первый и первыйost, поместите курсор в то место, куда вы хотите вставить число.
  2. Затем перейдите на вкладку «Разработчик».
  3. Затем нажмите «Visual Basic» в группе «Код», чтобы открыть редактор VBA. Кроме того, вы можете вместо этого нажать «Alt + F11», если вкладка «Разработчик» недоступна в вашем Word.Нажмите «Разработчик» -> нажмите «Visual Basic».
  4. Теперь нажмите «Обычный», а затем «Вставить».
  5. Далее выбираем «Модуль».Нажмите «Обычный» -> нажмите «Вставить» -> нажмите «Модуль».
  6. Дважды щелкните новый модуль, чтобы открыть область редактирования с правой стороны.
  7. Затем вставьте туда следующие коды:
Sub CountDownfromTodayToDeadlineDate() Dim dtDeadlineDate As Date Dim lDaysLeft As Long ' Введите крайний срок для расчета разницы дат. dtDeadlineDate = InputBox("Введите дату крайнего срока", "Дата крайнего срока", "Например: 2017/2/14") lDaysLeft = DateDiff("d", Now, dtDeadlineDate) ' Вывести разницу дат от сегодняшнего дня до даты крайнего срока в документе Word. Selection.Text = "Осталось " & lDaysLeft & " дней с сегодняшнего дня до " & dtDeadlineDate & vbCrLf End Sub
  1. Далее нажмите кнопку «Выполнить».Вставьте коды-> Нажмите «Выполнить».
  2. Вас встретит диалоговое окно, подобное приведенному ниже:Введите дату -> нажмите «ОК»

Введите крайний срок в текстовое поле и нажмите «ОК».Вставленный текст с указанием оставшихся дней

Для удобства использования в будущем вы можете нажать «Макросы» на вкладке «Разработчик» и выбрать правильный макрос, а затем нажать «Выполнить». Это вызовет диалоговое окно.Нажмите "Макросы"->Выберите правильный макрос->Нажмите "Выполнить"

Рассчитать время, оставшееся до крайнего срока

Иногда, помимо получения оставшихся дней, вам также может понадобиться знать, сколько времени у вас осталось до определенного времени. Тогда ревущий макрос — это то, что вам нужно.

  1. Повторите первые 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 ' Получить время сейчас и время крайнего срока. dtTimeNow = TimeValue(Now) dtDeadlineTime = InputBox("Введите время крайнего срока","Время крайнего срока", "Например: 18:00:00") ' Вычислить разницу во времени. lTimeLeft = DateDiff("s", dtTimeNow, dtDeadlineTime) lHour = lTimeLeft \ 3600 lTimeLeft = lTimeLeft - lHour * 3600 lMinute = lTimeLeft \ 60 lSecond = lTimeLeft - lMinute * 60 Selection.Text = "Есть " & lHour & " часы " & lМинуты & " минуты " & lСекунды & " секунды, оставшиеся до " & dtDeadlineTime & vbCrLf End Sub
  1. Не забудьте нажать кнопку «Выполнить».Вставьте коды -> нажмите «Выполнить».
  2. На этот раз у вас будет диалоговое окно «Время крайнего срока». Введите время крайнего срока, затем нажмите «ОК».Введите крайний срок-> нажмите «ОК»Время, оставшееся до крайнего срока

Сохранить файлы невредимыми

Чтобы сохранить целостность файлов и защитить их от повреждения, лучший и самый простой способ — часто делать резервные копии. Однако мы понимаем, что трудно придерживаться рутины, поэтому каждый день появляется так много сломанных файлов. Чтобы восстановить эти проблемные файлы, вам понадобится поврежденный инструмент восстановления Word.

Об авторе:

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

Поделись сейчас:

Оставьте комментарий

Ваш электронный адрес не будет опубликован. Обязательные поля помечены * *