3 tüüpi kasulikke meeldetuletusi Wordis, mis on loodud VBA kaudu

Selles artiklis soovime teile tutvustada kolme erinevat tüüpi meeldetuletust Wordis, mida saate luua VBA kaudu.

Kuna mõned meist peavad Wordis igapäevaselt tegelema paljude failidega, hakkame tõenäoliselt tegema pead ja jätame mõnikord mõned tööd tegemata. Sel juhul on abiks meeldetuletus. Seetõttu esitame teile 3 tüüpi käepäraseid meeldetuletusi, mille abil saate jälgida, mida teha.

Esimene liik: igapäevane meeldetuletus

Näiteks kui eelistate homse päeva plaani juba tänase päeva lõpus teha, on vaja igapäevast meeldetuletust. Wordi VBA redaktoris saate lisada makro nimega „AutoExec“. Seejärel iga kord, kui avate Wordi rakenduse, hakkab makro automaatselt tööle ja kuvab hüpikakna, mis osutab kõigile selle päeva jooksul lõpetatavatele ülesannetele.

1. Esiteks avage Word ja vajutage VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
2. Seejärel klõpsake nuppu "Tavaline".
3. Järgmisena klõpsake nuppu "Sisesta".
4. Ja valige menüüst "Moodul", et lisada projekti "Tavaline" alla uus.
5. Nüüd topeltklõpsake moodulil, et siseneda redigeerimisalasse ja kleepida sinna järgmised koodid:

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

6. Järgmisena klõpsake muudatuse salvestamiseks nuppu "Salvesta tavaline".

Selle tulemusel ilmub iga kord, kui avate Wordi, sõnumikast, kus on loetletud kõik ülesanded, mida peate tegema. Klõpsates "OK", saate konkreetse dokumendi avada ja selle redigeerimist jätkata.

Märkused:

1. Koodireal "dtDate = #2/20#”, kuupäev on päev, mil peate kõik toimingud tegema. Ärge unustage vastavalt muuta.
2. Koodireal "MsgBox "Täna tehtavad ülesanded:" & vbCr & "1: Saada failXX John Smithile" & vbCr & "2: Lõpeta fail YY"”, kogu jutumärkides olev sisu on ülesannete loend, mida peate järgima. Asendage see oma konkreetsete missioonidega. Peaksite panema iga loendiüksuse jutumärkidesse ja ühendama selle eelmisega, kasutades "& vbCr &” (jutumärkideta).

Teine tüüp: korduvate ülesannete meeldetuletused

Iganädalane meeldetuletus

Siin tuleb iganädalane meeldetuletus, mis annab teada asjadest, mida peate tegema igal nädalal samal päeval.

1. Esiteks korrake ülaltoodud 4 esimest sammu.
2. Ainult seekord kleepite alloleva 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

3. Samamoodi klõpsake viimasena nuppu "Salvesta tavaline".

Samuti ilmub sõnumikast. Wordis kirjutamise jätkamiseks klõpsake "OK".

Märkused:

Koodireal "dtWeekDay = vbesmaspäev", saate muuta "vb esmaspäev"Et"vb teisipäeval","vb kolmapäev","vb neljapäeval","vb reede","vb laupäev"Või"vbpühapäev” vastavalt.

Igakuine meeldetuletus

Samamoodi on igakuine meeldetuletus, mis tuletab meelde igakuist ülesannet.

1. Tehke siiski esimesed 4 sammu jaotises „Esimene liik: igapäevane meeldetuletus“.
2. Seejärel kleepige koodid sinna:

Sub AutoExec()
  Dim dtDay As Date

  dtDay = 20
 
  If dtDay = Day(Date) Then
    MsgBox "Back up today of each month."
  End If
End Sub

3. Viimane, kuid mitte vähem oluline, klõpsake nuppu "Salvesta tavaline".

Samamoodi ilmub sõnumikast iga kord, kui avate Wordi.

Märge:

Koodireal "dtPäev = 20”, number on kuupäev, millal peate igakuise ülesande täitma. Ärge unustage seda enne makro käivitamist muuta.

Kolmas tüüp: meeldetuletused kuupäeva või kellaaja erinevuse kohta

Arvestades, et peaaegu kõigel on tähtaeg, on vaja meeles pidada täpseid järelejäänud päevi või aega. Seetõttu suudavad järgmised kaks makrot automaatselt arvutada praeguse kuupäeva või kellaaja ja tähtaja kuupäeva või kellaaja vahe. Ja see on nähtav Wordi avamisel, kuvades tulemuse teateaknas.

Makro käivitamise ja salvestamise sammud on samad, mis ülal.

Siin on makro päevade erinevuse saamiseks:

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

Ja tulemus on:

Märge:

Ärge unustage koodirida muutadtDeadlineDay = #2/20#”. Lihtsalt muutke kuupäeva vastavalt vajadusele.

Järgmine on ajavahe saamiseks makro:

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

Ja tulemus on:

Märge:

Asendage aeg jaotises "dtDeadlineTime = TimeValue ("16:40:00 PM")” tähendusrikkaga.

Väärt varukoopia

Me ei alahinnata kunagi selle tähtsust ja seda, mida see teha saab pärast faili rikumist. Lisaks soovitame meil koostada varuplaan vähemalt iga päev või kord nädalas või kuus. Varundamine on täpne ettevalmistus, mida peaksime tegema, et vältida meie andmete kahjustamist. Vastasel juhul saame viimase jõupingutuse hankida a rikutud Wordi andmete taastamise tööriist.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud Excel xls-i remonditööriist ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom