În acest articol, am dori să vă prezentăm 3 tipuri diferite de mementouri în Word pe care le puteți crea prin VBA.
Deoarece unii dintre noi trebuie să se ocupe zilnic de o mulțime de fișiere în Word, este posibil să ne amețim cu ceea ce trebuie să facem și să lăsăm unele lucrări nefăcute uneori. În acest caz, un memento va fi util. Prin urmare, vă prezentăm 3 tipuri de mementouri utile pe care le puteți utiliza pentru a ține evidența a ceea ce trebuie să faceți.
Primul tip: Memento zilnic
De exemplu, dacă preferi să-ți faci planuri pentru mâine la sfârșitul zilei de azi, vei avea nevoie de o reamintire zilnică. În editorul Word VBA, poți adăuga o macrocomandă cu numele „AutoExec”. Apoi, de fiecare dată când deschizi aplicația Word, macrocomanda va începe să ruleze automat și va afișa o casetă de mesaj, indicând toate sarcinile care trebuie finalizate în ziua respectivă.
- Mai întâi, deschideți Word și apăsați „Alt+ F11” pentru a deschide editorul VBA.
- Apoi faceți clic pe „Normal”.
- Apoi faceți clic pe „Insert”.
- Și alegeți „Modul” din meniu pentru a insera unul nou în proiectul „Normal”.
- Acum faceți dublu clic pe modul pentru a intra în zona de editare și lipiți următoarele coduri acolo:
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
- Apoi faceți clic pe „Salvați normal” pentru a salva modificarea.
Ca rezultat, de fiecare dată când deschideți Word, va apărea o casetă de mesaj, care listează toate sarcinile pe care trebuie să le finalizați. Făcând clic pe „OK”, puteți deschide și continua editarea unui anumit document.
note:
- În linia de cod „dtDate = #2/20/2017#”, data este ziua în care trebuie să efectuați toate acțiunile. Nu uitați să schimbați în consecință.
- În linia de cod „MsgBox „Sarcini de făcut astăzi:” & vbCr & „1: Trimiteți fișierul XX lui John Smith” & vbCr & „2: Terminați fișierul YY””, tot conținutul între ghilimele este lista de sarcini pe care trebuie să o urmați. Înlocuiește-l cu propriile tale misiuni concrete. Ar trebui să puneți fiecare element din listă între ghilimele și să îl alăturați celui anterior cu „& vbCr &” (fără ghilimele).
Al doilea tip: mementouri pentru sarcini recurente
Mementoul săptămânal
Aici vine memento-ul săptămânal, care notifică lucrurile pe care trebuie să le faci în aceeași zi în fiecare săptămână.
- În primul rând, repetați primii 4 pași de mai sus.
- Numai de această dată, lipiți macrocomandă de mai jos:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- În mod similar, faceți clic pe butonul „Salvare normal” în sfârșit.
La fel, va exista o casetă de mesaje. Faceți clic pe „OK” pentru a continua să scrieți în Word.
note:
În linia de cod „dtWeekDay = vbLuni”, puteți schimba „vbLuni"La"vbMarți","vbMiercuri","vbJoi","vbvineri","vbSâmbătă"Sau"vbDuminică” în consecință.
Memento lunar
În același mod, există memento-ul lunar, care vă reamintește de sarcina lunară.
- Fă totuși primii 4 pași din „Primul fel: Mementoul zilnic”.
- Apoi lipiți codurile acolo:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Nu în ultimul rând, faceți clic pe „Salvați normal”.
În mod similar, o casetă de mesaj va apărea de fiecare dată când deschideți Word.
Notă:
În linia de cod „dtDay = 20”, numărul este data la care trebuie să îndepliniți sarcina lunară. Nu uitați să îl modificați înainte de a rula macro-ul.
Al treilea fel: mementouri pentru diferența de dată sau oră
Având în vedere că există un termen limită pentru aproape orice, este necesar să țineți cont de zilele sau timpul exact rămas. Prin urmare, următoarele 2 macrocomenzi pot calcula automat diferența dintre data sau ora curentă și data sau ora termenului limită. Și este vizibil când deschideți Word, afișând rezultatul într-o casetă de mesaj.
Pașii de rulare și salvare a macrocomenzii sunt aceiași ca mai sus.
Iată macro-ul pentru a obține diferența de zi:
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
Iar rezultatul este:
Notă:
Nu uitați să modificați linia de cod „dtDeadlineDay = #2/20/2017#”. Doar schimbați data după cum aveți nevoie.
Apoi urmează macro-ul pentru a obține diferența de timp:
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
Iar rezultatul este:
Notă:
Înlocuiți ora în „dtDeadlineTime = TimeValue(„16:40:00”)” cu unul semnificativ.
O copie de rezervă care merită
Nu vom subestima niciodată importanța și ceea ce poate face după ce fișierul este corupt. În plus, ni se recomandă să elaborăm un plan de rezervă cel puțin zilnic sau săptămânal sau lunar. Backup-ul este exact pregătirea pe care ar trebui să-l facem pentru a preveni deteriorarea datelor noastre. În caz contrar, ultimul efort pe care îl putem scuti este de a obține a instrument corupt de recuperare a datelor Word.
Introducerea autorului:
Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv instrument de reparare Excel xls corupt și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com