U ovom članku želimo da vas upoznamo sa 3 različite vrste podsjetnika u Wordu koje možete kreirati putem VBA.
Budući da se neki od nas svakodnevno moraju baviti velikim brojem datoteka u Wordu, vjerovatno će nam se zavrtjeti u glavi šta da radimo i ponekad ostavljamo neke poslove neostvarene. U tom slučaju, podsjetnik će biti od pomoći. Stoga vam predstavljamo 3 vrste zgodnih podsjetnika koje možete koristiti da biste pratili što trebate učiniti.
Prva vrsta: Dnevni podsjetnik
Na primjer, ako više volite praviti plan za sutra na kraju današnjeg dana, dnevni podsjetnik je ono što će vam trebati. U Word VBA editoru možete dodati makro pod nazivom "AutoExec". Zatim će se svaki put kada otvorite Word aplikaciju, makro automatski pokrenuti i prikazati prozor s porukom, u kojem se navodi da se svi zadaci moraju završiti tog dana.
- Prvo otvorite Word i pritisnite “Alt+ F11” da otvorite VBA editor.
- Zatim kliknite na “Normalno”.
- Zatim kliknite na “Insert”.
- I izaberite “Module” na meniju da umetnete novi pod “Normal” projekat.
- Sada dvaput kliknite na modul da uđete u područje za uređivanje i tamo zalijepite sljedeće kodove:
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
- Zatim kliknite na “Save Normal” da sačuvate promjenu.
Kao rezultat toga, svaki put kada otvorite Word, pojavit će se okvir s porukom u kojem su navedeni svi zadaci koje trebate dovršiti. Klikom na “OK” možete otvoriti i nastaviti uređivanje na određenom dokumentu.
Napomene:
- U liniji koda “dtDate = #2/20/2017#“, datum je dan kada morate izvršiti sve radnje. Ne zaboravite promijeniti u skladu s tim.
- U liniji koda “MsgBox “Zadaci koje treba obaviti danas:” & vbCr & “1: Pošaljite fileXX Johnu Smithu” & vbCr & “2: Završi datoteku YY”“, sav sadržaj između navodnika je lista zadataka koju morate pratiti. Zamijenite ga svojim konkretnim misijama. Trebali biste svaku stavku liste staviti pod navodnike i spojiti je s prethodnom sa "& vbCr &” (bez navodnika).
Druga vrsta: podsjetnici za zadatke koji se ponavljaju
Nedeljni podsetnik
Ovdje dolazi sedmični podsjetnik koji obavještava stvari koje morate raditi istog dana svake sedmice.
- Prvo, ponovite prva 4 gornja koraka.
- Samo ovaj put, zalijepite sljedeći makro:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- Slično tome, na kraju kliknite na dugme „Sačuvaj normalno“.
Isto tako, postojaće okvir za poruke. Kliknite na “OK” da nastavite pisati u Wordu.
Napomene:
U liniji koda “dtWeekDay = vbMonday“, možete promijeniti “vbMonday"Do"vbTuesday""vbWednesday""vbThursday""vbFriday""vbSaturday"Ili"vbSunday” shodno tome.
Mjesečni podsjetnik
Na isti način postoji i mjesečni podsjetnik koji vas podsjeća na mjesečni zadatak.
- I dalje napravite prva 4 koraka u “Prvoj vrsti: Dnevni podsjetnik”.
- Zatim tamo zalijepite kodove:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Na kraju, ali ne i najmanje važno, kliknite na “Save Normal”.
Slično, okvir za poruku će se pojaviti svaki put kada otvorite Word.
Bilješka:
U liniji koda “dtDay = 20“, broj je datum kada trebate ispuniti mjesečni zadatak. Ne zaboravite je promijeniti prije pokretanja makroa.
Treća vrsta: podsjetnici za datumsku ili vremensku razliku
S obzirom na to da gotovo sve ima rok, potrebno je imati na umu tačan broj preostalih dana ili vremena. Stoga, sljedeća dva makroa mogu automatski izračunati razliku između trenutnog datuma ili vremena i datuma ili vremena roka. To je vidljivo kada otvorite Word, prikazujući rezultat u okviru za poruku.
Koraci za pokretanje i spremanje makroa su isti kao gore.
Evo makroa da dobijete dnevnu razliku:
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
Rezultat je:
Bilješka:
Ne zaboravite izmijeniti liniju koda “dtDeadlineDay = #2.#”. Samo promijenite datum prema potrebi.
Zatim je sljedeći makro da dobijete vremensku razliku:
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
A ishod je:
Bilješka:
Zamijenite vrijeme u “dtDeadlineTime = TimeValue(“16:40:00 PM”)” sa značajnim.
Vrijedna rezervna kopija
Nikada nećemo potcijeniti važnost i šta može učiniti nakon što se datoteka ošteti. Osim toga, savjetujemo da izradimo rezervni plan barem na dnevnoj ili sedmičnoj ili mjesečnoj bazi. Sigurnosna kopija je tačna priprema koju bismo trebali napraviti kako bismo spriječili oštećenje naših podataka. U suprotnom, posljednji napor koji možemo uštedjeti je da dobijemo a korumpirani Word alat za oporavak podataka.
Uvod za autora:
Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen alat za popravku Excel xls i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com