Šiame straipsnyje norėtume jums pristatyti 3 skirtingus „Word“ priminimus, kuriuos galite sukurti naudodami VBA.
Kadangi kai kuriems iš mūsų kasdien tenka susidoroti su daugybe failų programoje „Word“, tikėtina, kad sustingsime, ką daryti, o kai kuriuos darbus kartais paliksime neatliktus. Tokiu atveju priminimas bus naudingas. Todėl pateikiame 3 rūšių patogius priminimus, kuriuos galite naudoti norėdami sekti, ką daryti.
Pirmasis tipas: kasdienis priminimas
Pavyzdžiui, jei norite rytojaus planą sudaryti šiandienos pabaigoje, jums reikės kasdienio priminimo. „Word“ VBA redaktoriuje galite pridėti makrokomandą pavadinimu „AutoExec“. Tada kiekvieną kartą atidarius „Word“ programą, makrokomanda pradės veikti automatiškai ir pasirodys pranešimų langas, kuriame bus nurodytos visos užduotys, kurias reikia atlikti tą dieną.
- Pirmiausia atidarykite „Word“ ir paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių.
- Tada spustelėkite „Normalus“.
- Tada spustelėkite „Įterpti“.
- Meniu pasirinkite „Modulis“, kad įterptumėte naują į „Įprastą“ projektą.
- Dabar dukart spustelėkite modulį, kad patektumėte į redagavimo sritį ir įklijuokite ten šiuos kodus:
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
- Tada spustelėkite „Išsaugoti įprastą“, kad išsaugotumėte pakeitimą.
Todėl kiekvieną kartą atidarius „Word“ bus pranešimų laukelis, kuriame bus išvardytos visos užduotys, kurias turite atlikti. Spustelėję „Gerai“, galite atidaryti ir tęsti konkretaus dokumento redagavimą.
Pastabos:
- Kodo eilutėje “dtDate = #2/20/2017#“, data yra diena, kai turite atlikti visus veiksmus. Nepamirškite atitinkamai pakeisti.
- Kodo eilutėje “MsgBox „Užduotys, kurias reikia atlikti šiandien:“ & vbCr & „1: Siųsti failąXX Johnui Smithui“ & vbCr & „2: Baigti failą YY““, visas turinys tarp kabučių yra užduočių sąrašas, kurio turite laikytis. Pakeiskite jį savo konkrečiomis misijomis. Kiekvieną sąrašo elementą turėtumėte įdėti į kabutes ir sujungti jį su ankstesniu su "& vbCr &“ (be kabučių).
Antrasis tipas: pasikartojančių užduočių priminimai
Savaitinis priminimas
Čia ateina savaitinis priminimas, pranešantis apie dalykus, kuriuos turite padaryti tą pačią kiekvieną savaitę.
- Pirmiausia pakartokite pirmuosius 4 aukščiau nurodytus veiksmus.
- Tik šį kartą įklijuojate toliau pateiktą makrokomandą:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- Panašiai, galiausiai spustelėkite mygtuką „Išsaugoti įprastą“.
Taip pat bus pranešimų dėžutė. Spustelėkite „Gerai“, kad tęstumėte rašymą „Word“.
Pastabos:
Kodo eilutėje “dtWeekDay = vbMonday“, galite pakeisti „vb pirmadienis"Iki"vb antradienis","vbtrečiadienis","vb ketvirtadienis","vb penktadienis","vb Šeštadienis“Arba„vb sekmadienis“ atitinkamai.
Mėnesio priminimas
Taip pat yra mėnesinis priminimas, primenantis apie mėnesio užduotį.
- Vis tiek atlikite pirmuosius 4 veiksmus „Pirmasis tipas: kasdienis priminimas“.
- Tada įklijuokite kodus:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Paskutinis, bet ne mažiau svarbus dalykas, spustelėkite „Išsaugoti įprastą“.
Panašiai kiekvieną kartą atidarius „Word“ pasirodys pranešimų laukelis.
Pastaba:
Kodo eilutėje “dtDay = 20“, skaičius yra data, kada reikia atlikti mėnesio užduotį. Nepamirškite jo pakeisti prieš paleisdami makrokomandą.
Trečioji rūšis: priminimai dėl datos ar laiko skirtumo
Kadangi beveik viskam yra terminas, būtina nepamiršti tikslių likusių dienų ar laiko. Todėl dvi kitos makrokomandos gali automatiškai apskaičiuoti skirtumą tarp dabartinės datos ar laiko ir termino datos ar laiko. Tai matoma atidarius „Word“, o rezultatas rodomas pranešimų lauke.
Makrokomandos paleidimo ir išsaugojimo veiksmai yra tokie patys, kaip aprašyta aukščiau.
Štai makrokomanda, skirta dienos skirtumui gauti:
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
O rezultatas toks:
Pastaba:
Nepamirškite pakeisti kodo eilutės “dtDeadlineDay = #2/20/2017#“. Tiesiog pakeiskite datą pagal poreikį.
Tada seka makrokomanda, skirta laiko skirtumui gauti:
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
O rezultatas toks:
Pastaba:
Pakeiskite laiką į "dtDeadlineTime = TimeValue ("16:40:00 PM")“ su prasmingu.
Verta atsarginė kopija
Niekada neįvertinsime svarbos ir to, ką ji gali padaryti, kai failas sugadinamas. Be to, mums patariama sudaryti atsarginį planą kasdien, kas savaitę ar bent kartą per mėnesį. Atsarginė kopija yra tikslus pasiruošimas, kurį turėtume padaryti, kad mūsų duomenys nebūtų pažeisti. Priešingu atveju paskutinės pastangos, kurias galime nepagailėti, yra gauti a sugadintas Word duomenų atkūrimo įrankis.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas Excel xls taisymo įrankis bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com