У цій статті ми хотіли б познайомити вас із 3 різними видами нагадувань у Word, які можна створити за допомогою VBA.
Оскільки декому з нас щодня доводиться мати справу з великою кількістю файлів у Word, у нас часто запаморочується голова від того, що робити, і іноді ми залишаємо невиконаними деякі завдання. У цьому випадку допоможе нагадування. Тому ми представляємо вам 3 види зручних нагадувань, якими ви можете скористатися, щоб стежити за тим, що робити.
Перший вид: Щоденне нагадування
Наприклад, якщо ви віддаєте перевагу складати плани на завтра в кінці сьогоднішнього дня, вам знадобиться щоденне нагадування. У редакторі Word VBA ви можете додати макрос з назвою «AutoExec». Тоді щоразу, коли ви відкриваєте програму Word, макрос запускатиметься автоматично та з’являтиме вікно повідомлення, яке вказуватиме на те, що всі завдання мають бути виконані цього дня.
- По-перше, відкрийте Word і натисніть «Alt+F11», щоб відкрити редактор VBA.
- Потім натисніть «Звичайний».
- Далі натисніть “Вставити”.
- Виберіть «Модуль» у меню, щоб вставити новий у проект «Звичайний».
- Тепер двічі клацніть на модулі, щоб увійти в область редагування, і вставте туди такі коди:
Sub AutoExec()
Dim dtDate As Date
dtDate = #2/20/2017#
If Date = dtDate Then
MsgBox "Tasks to be done today:" & vbCr & "1: Send fileXX to John Smith " & vbCr & "2: Finish file YY"
End If
End Sub
- Потім натисніть «Зберегти звичайний», щоб зберегти зміни.
У результаті щоразу, коли ви відкриваєте Word, з’являтиметься вікно повідомлення зі списком усіх завдань, які вам потрібно виконати. Натиснувши «ОК», ви можете відкрити та продовжити редагування певного документа.
Примітки:
- У рядку коду “dtDate = #2/20/2017#», дата - це день, коли ви повинні виконати всі дії. Пам’ятайте про відповідні зміни.
- У рядку коду “MsgBox «Завдання, які потрібно виконати сьогодні:» & vbCr & «1: Надіслати файлXX Джону Сміту» & vbCr & «2: Завершити файл YY»», увесь вміст у лапках — це список завдань, які вам потрібно виконати. Замініть його власними конкретними місіями. Ви повинні взяти кожен елемент списку в лапки та об’єднати його з попереднім за допомогою «& vbCr &” (без лапок).
Другий вид: нагадування про повторювані завдання
Щотижневе нагадування
Ось щотижневе нагадування, яке сповіщає про те, що ви повинні зробити в один день кожного тижня.
- По-перше, повторіть перші 4 кроки вище.
- Тільки цього разу ви вставляєте наступний макрос:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- Так само нарешті натисніть кнопку «Зберегти звичайний».
Так само буде вікно повідомлень. Натисніть «ОК», щоб продовжити запис у Word.
Примітки:
У рядку коду “dtWeekDay = vbMonday", ви можете змінити"vbПонеділок"Кому"vbВівторок»,«vbсереда»,«vbЧетвер»,«vbП'ятниця»,«vbСубота", Або"vbНеділя» відповідно.
Щомісячне нагадування
Таким же чином є щомісячне нагадування, яке нагадує вам про щомісячне завдання.
- Все одно зробіть перші 4 кроки в «Першому виді: Щоденне нагадування».
- Потім вставте туди коди:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Нарешті, але не менш важливо, натисніть «Зберегти звичайний».
Подібним чином вікно повідомлення з’являтиметься щоразу, коли ви відкриватимете Word.
Примітка:
У рядку коду “dtDay = 20», число — дата, коли потрібно виконати місячне завдання. Не забудьте змінити його перед запуском макросу.
Третій вид: нагадування про різницю в даті або часі
Оскільки майже для всього є термін виконання, необхідно пам’ятати про точну кількість днів або часу, що залишився. Тому наступні 2 макроси можуть автоматично обчислювати різницю між поточною датою або часом і датою або часом терміну. І це видно, коли ви відкриваєте Word, показуючи результат у вікні повідомлення.
Кроки для запуску та збереження макросу такі самі, як і вище.
Ось макрос для отримання різниці днів:
Sub Autoexec()
Dim dtDeadlineDay As Date
Dim nDaysLeft As Long
'Specify the deadline date and calculate the days left.
dtDeadlineDay = #2/20/2017#
nDaysLeft = DateDiff("d", Now, dtDeadlineDay)
' Show the days left before deadline.
If nDaysLeft > 1 Then
MsgBox "There are " & nDaysLeft & " days left before " & dtDeadlineDay & "."
ElseIf nDaysLeft = 1 Then
MsgBox "There is 1 day left before " & dtDeadlineDay & "."
ElseIf nDaysLeft = 0 Then
MsgBox "Today is the deadline!"
End If
End Sub
І результат такий:
Примітка:
Не забудьте змінити рядок коду "dtDeadlineDay = #2/20/2017#”. Просто змініть дату, як вам потрібно.
Далі йде макрос для отримання різниці в часі:
Sub Autoexec()
Dim dtCurrentTime As Date
Dim dtDeadlineTime As Date
Dim nTimeLeft As Long, nHour As Long, nMinute As Long, nSecond As Long
' Specify the current time and the deadline time.
dtCurrentTime = TimeValue(Now)
dtDeadlineTime = TimeValue("16:40:00 PM")
' Calculate and show the time difference.
nTimeLeft = DateDiff("s", dtCurrentTime, dtDeadlineTime)
nHour = nTimeLeft \ 3600
nTimeLeft = nTimeLeft - nHour * 3600
nMinute = nTimeLeft \ 60
nSecond = nTimeLeft - nMinute * 60
MsgBox "There are " & nHour & " hours " & nMinute & " minutes " & nSecond & " seconds left before " & dtDeadlineTime & "."
End Sub
І результат такий:
Примітка:
Замініть час у «dtDeadlineTime = TimeValue("16:40:00 PM")” зі значущим.
Варта резервна копія
Ми ніколи не будемо недооцінювати важливість і те, що він може зробити після пошкодження файлу. Крім того, ми радимо створювати резервний план щодня, щотижня чи щомісяця. Резервне копіювання – це точна підготовка, яку ми повинні зробити, щоб запобігти пошкодженню наших даних. В іншому випадку остання відчайдушна спроба, яку ми можемо докласти, це отримати a пошкоджений інструмент відновлення даних Word.
Вступ автора:
Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджений інструмент відновлення xls Excel та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com