U ovom članku želimo vam predstaviti 3 različite vrste podsjetnika u Wordu koje možete izraditi putem VBA.
Budući da se neki od nas svakodnevno moraju nositi s mnogo datoteka u Wordu, vjerojatno će nam se zavrtjeti u glavi što učiniti i ponekad ćemo ostaviti neke poslove neobavljenima. U tom slučaju, podsjetnik će biti od pomoći. Stoga vam predstavljamo 3 vrste zgodnih podsjetnika pomoću kojih možete pratiti što trebate učiniti.
Prva vrsta: Dnevni podsjetnik
Na primjer, ako radije planirate sutra na kraju današnjeg dana, trebat će vam dnevni podsjetnik. U Word VBA editoru možete dodati makronaredbu s nazivom „AutoExec“. Tada će se svaki put kada otvorite Word aplikaciju, makronaredba automatski pokrenuti i prikazati okvir s porukom u kojem će se svi zadaci postaviti na dovršetak tog dana.
- Prvo otvorite Word i pritisnite “Alt+ F11” da biste otvorili VBA editor.
- Zatim kliknite "Normalno".
- Zatim kliknite "Umetni".
- I odaberite "Modul" na izborniku da biste umetnuli novi pod "Normalni" projekt.
- Sada dvaput kliknite na modul kako biste ušli 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 "Spremi normalno" da biste spremili promjenu.
Kao rezultat toga, svaki put kada otvorite Word, pojavit će se okvir s porukom s popisom svih zadataka koje trebate izvršiti. Klikom na “OK” možete otvoriti i nastaviti s uređivanjem određenog dokumenta.
Napomene:
- U retku koda "dtDatum = #2/20/2017#“, datum je dan kada morate izvršiti sve radnje. Ne zaboravite promijeniti u skladu s tim.
- U retku koda "MsgBox “Zadaci koje treba obaviti danas:” & vbCr & “1: Pošalji datotekuXX Johnu Smithu ” & vbCr & “2: Završi datoteku YY””, sav sadržaj između navodnika je popis zadataka koje morate slijediti. Zamijenite ga vlastitim konkretnim misijama. Svaku stavku popisa trebali biste staviti unutar navodnika i pridružiti je prethodnoj s "& vbCr &” (bez navodnika).
Druga vrsta: Podsjetnici za ponavljajuće zadatke
Tjedni podsjetnik
Dolazi tjedni podsjetnik koji vas obavještava o stvarima koje morate obaviti na isti dan svakog tjedna.
- Najprije ponovite prva 4 koraka iznad.
- Samo ovaj put zalijepite sljedeći makronaredbu:
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, na kraju kliknite gumb "Spremi normalno".
Isto tako, postojat će okvir za poruke. Pritisnite “OK” za nastavak pisanja u Wordu.
Napomene:
U retku koda "dtTjedanDan = vbPonedjeljak", možete promijeniti "vbPonedjeljak"Da"vbUtorak","vbSrijeda","vbČetvrtak","vbpetak","vbsubota", ili "vbNedjelja" prema tome.
Mjesečni podsjetnik
Na isti način, tu je i mjesečni podsjetnik koji vas podsjeća na mjesečni zadatak.
- Ipak poduzmite 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
- Posljednje, ali ne i najmanje važno, kliknite "Spremi normalno".
Slično tome, okvir s porukom će se pojaviti svaki put kada otvorite Word.
Bilješka:
U retku koda "dtDan = 20”, broj je datum kada trebate ispuniti mjesečni zadatak. Ne zaboravite ga promijeniti prije pokretanja makronaredbe.
Treća vrsta: Podsjetnici za datumsku ili vremensku razliku
S obzirom na to da gotovo sve ima rok, potrebno je imati na umu točan broj preostalih dana ili vremena. Stoga će sljedeća dva makroa 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 makronaredbe isti su kao gore.
Evo makronaredbe za dobivanje dnevne razlike:
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
A rezultat je:
Bilješka:
Ne zaboravite izmijeniti liniju koda "dtRokDay = #2/20/2017#”. Samo promijenite datum kako želite.
Zatim slijedi makro za dobivanje vremenske razlike:
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 rezultat je:
Bilješka:
Zamijenite vrijeme u "dtDeadlineTime = TimeValue(“16:40:00 PM”)” sa smislenim.
Sigurnosna kopija vrijedna truda
Nikada nećemo podcijeniti važnost i ono što može učiniti nakon što se datoteka ošteti. Osim toga, savjetuje nam se da izradimo pričuvni plan na dnevnoj, tjednoj ili barem mjesečnoj bazi. Sigurnosna kopija je upravo priprema koju bismo trebali učiniti kako bismo spriječili oštećenje podataka. U suprotnom, posljednji napor koji možemo uložiti je da dobijemo a oštećen Word alat za oporavak podataka.
Uvod za autora:
Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen Excel xls alat za popravak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com