Sa artikulong ito, nais naming ipakilala sa iyo ang 3 iba't ibang uri ng mga paalala sa Word na maaari mong gawin sa pamamagitan ng VBA.
Dahil ang ilan sa atin ay kailangang harapin ang maraming mga file sa Word sa araw-araw, malamang na mahilo tayo sa kung ano ang gagawin at iiwan ang ilang mga trabaho na hindi nagagawa kung minsan. Sa kasong iyon, makakatulong ang isang paalala. Samakatuwid, ipinakita namin sa iyo ang 3 uri ng madaling gamiting mga paalala na magagamit mo upang subaybayan kung ano ang gagawin.
Ang Unang Uri: Ang Pang-araw-araw na Paalala
Halimbawa, kung mas gusto mong gumawa ng plano para bukas sa katapusan ng araw na ito, kakailanganin mo ang pang-araw-araw na paalala. Sa Word VBA editor, maaari kang magdagdag ng macro na may pangalang "AutoExec". Pagkatapos, sa bawat oras na buksan mo ang Word application, awtomatikong magsisimulang tumakbo ang macro at magpa-pop up ng message box, na magtuturo sa iyo na ilagay ang lahat ng gawain na dapat tapusin sa araw na iyon.
- Una, buksan ang Word at pindutin ang "Alt + F11" upang buksan ang VBA editor.
- Pagkatapos i-click ang "Normal".
- Susunod na pag-click sa "Ipasok".
- At piliin ang "Module" sa menu upang magpasok ng bago sa ilalim ng "Normal" na proyekto.
- Ngayon i-double click ang module upang makapasok sa lugar ng pag-edit at i-paste ang mga sumusunod na code doon:
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
- Susunod na i-click ang "Save Normal" upang i-save ang pagbabago.
Bilang resulta, sa tuwing magbubukas ka ng Word, magkakaroon ng isang kahon ng mensahe, na naglilista ng lahat ng mga gawain na kailangan mong kumpletuhin. Sa pamamagitan ng pag-click sa "OK", maaari mong buksan at ipagpatuloy ang pag-edit sa isang partikular na dokumento.
Mga Tala:
- Sa linya ng code na “dtDate = #2/20/2017#”, ang petsa ay ang araw kung kailan mo kailangang gawin ang lahat ng mga aksyon. Tandaan na baguhin nang naaayon.
- Sa linya ng code na “MsgBox “Mga gawaing gagawin ngayon:” & vbCr & “1: Ipadala ang fileXX kay John Smith ” & vbCr & “2: Tapusin ang file YY””, lahat ng nilalaman sa pagitan ng mga panipi ay ang listahan ng gawain na kailangan mong sundin. Palitan ito ng sarili mong mga kongkretong misyon. Dapat mong ilagay ang bawat item sa listahan sa loob ng mga panipi at isama ito sa nauna na may "& vbCr &”(Walang mga panipi).
Ang Ikalawang Uri: Mga Paalala para sa Mga Paulit-ulit na Gawain
Ang Lingguhang Paalala
Narito ang lingguhang paalala, na nag-aabiso sa mga bagay na kailangan mong gawin sa parehong araw bawat linggo.
- Una, ulitin ang unang 4 na hakbang sa itaas.
- Tanging sa pagkakataong ito, i-paste mo ang sumisingaw na macro:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- Katulad nito, i-click ang pindutang "I-save ang Normal" sa wakas.
Gayundin, magkakaroon ng isang kahon ng mensahe. I-click ang "OK" upang magpatuloy sa pagsusulat sa Word.
Mga Tala:
Sa linya ng code na “dtWeekDay = vbMonday", pwede kang magbago "vbLunes"Sa"vbMartes","vbMiyerkules","vbHuwebes","vbBiyernes","vbSabado", O"vbLinggo” ayon dito.
Ang Buwanang Paalala
Sa parehong paraan, mayroong buwanang paalala, na nagpapaalala sa iyo ng buwanang gawain.
- Gawin pa rin ang unang 4 na hakbang sa “The First Kind: The Daily Reminder”.
- Pagkatapos ay i-paste ang mga code doon:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Panghuli ngunit hindi bababa sa, i-click ang "Save Normal".
Katulad nito, may lalabas na message box sa tuwing bubuksan mo ang Word.
tandaan:
Sa linya ng code na “dtDay = 20”, ang numero ay ang petsa kung kailan kailangan mong tuparin ang buwanang gawain. Tandaan na baguhin ito bago patakbuhin ang macro.
Ang Ikatlong Uri: Mga Paalala para sa Pagkakaiba ng Petsa o Oras
Dahil may deadline para sa halos lahat ng bagay, mahalagang tandaan ang eksaktong mga araw o oras na natitira. Samakatuwid, ang paparating na 2 macro ay maaaring awtomatikong kalkulahin ang pagkakaiba sa pagitan ng kasalukuyang petsa o oras at ang petsa o oras ng deadline. At ito ay makikita kapag binuksan mo ang Word, na nagpapakita ng resulta sa isang message box.
Ang mga hakbang sa pagpapatakbo at pag-save ng macro ay pareho sa itaas.
Narito ang macro upang makuha ang pagkakaiba sa araw:
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
At ang resulta ay:
tandaan:
Tandaan na baguhin ang linya ng code "dtDeadlineDay = #2/20/2017#”. Baguhin lamang ang petsa ayon sa kailangan mo.
Pagkatapos ay ang macro upang makuha ang pagkakaiba sa oras:
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
At ang kinalabasan ay:
tandaan:
Palitan ang oras sa "dtDeadlineTime = TimeValue(“16:40:00 PM”)” na may makahulugan.
Isang Sulit na Backup
Hinding-hindi namin dapat ipagtantiya ang kahalagahan at kung ano ang magagawa nito pagkatapos masira ang file. Bukod dito, pinapayuhan kaming maglabas ng backup na plano sa araw-araw o lingguhan o buwanang batayan man lang. Ang pag-backup ay ang eksaktong paghahanda na dapat nating gawin upang maiwasang masira ang ating data. Kung hindi, ang huling-ditch na pagsisikap na maaari nating matitira ay upang makakuha ng a sira na tool sa pagbawi ng data ng Word.
Panimula ng May-akda:
Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sira ang Excel xls repair tool at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa