3 vrste uporabnih opomnikov v programu Word, ustvarjenih prek VBA

V tem članku bi vas radi seznanili s tremi različnimi opomniki v Wordu, ki jih lahko ustvarite prek VBA.

Ker se moramo nekateri od nas vsak dan ukvarjati z veliko datotekami v Wordu, se nam verjetno vrti v glavi, kaj storiti, in nekatera delovna mesta včasih zapustijo. V tem primeru vam bo v pomoč opomnik. Zato vam predstavljamo 3 vrste priročnih opomnikov, s katerimi lahko spremljate, kaj storiti.

Prva vrsta: dnevni opomnik

Na primer, če raje načrtujete jutri ob koncu današnjega dne, boste potrebovali dnevni opomnik. V urejevalniku VBA za Word lahko dodate makro z imenom »AutoExec«. Vsakič, ko odprete aplikacijo Word, se bo makro samodejno zagnal in prikazal okno s sporočilom, ki bo vse naloge nastavil na dokončanje za ta dan.

1. Najprej odprite Word in pritisnite “Alt + F11”, da odprete urejevalnik VBA.
2. Nato kliknite »Normal«.
3. Nato kliknite »Vstavi«.
4. In izberite »Modul« v meniju, da vstavite novega pod projekt »Normal«.
5. Zdaj dvokliknite modul, da vstopite v območje za urejanje in tam prilepite naslednje kode:

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. Nato kliknite »Shrani normalno«, da shranite spremembo.

Kot rezultat, se bo vsakič, ko odprete Word, pojavilo okno s sporočilom, v katerem bodo navedena vsa opravila, ki jih morate opraviti. S klikom na »V redu« lahko odprete in nadaljujete z urejanjem določenega dokumenta.

Opombe:

1. V vrstici kode “dtDate = # 2/20/2017 #”, Datum je dan, ko morate izvesti vsa dejanja. Ne pozabite se ustrezno spremeniti.
2. V vrstici kode “MsgBox "Naloge, ki jih je treba opraviti danes:" & vbCr & "1: Pošlji datotekoXX Johnu Smithu" & vbCr & "2: Dokončaj datoteko YY"", Vsa vsebina med narekovaji je seznam opravil, ki mu morate slediti. Zamenjajte ga s svojimi konkretnimi misijami. Vsak element seznama vstavite v narekovaje in ga pridružite prejšnjemu z »& vbCr &”(Brez narekovajev).

Druga vrsta: opomniki za ponavljajoča se opravila

Tedenski opomnik

Tu prihaja tedenski opomnik, ki vas obvešča o stvareh, ki jih morate vsak teden narediti isti dan.

1. Najprej ponovite prve 4 zgornje korake.
2. Samo tokrat prilepite spodnji 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. Podobno še zadnjič kliknite gumb »Shrani normalno«.

Prav tako bo okno za sporočila. Kliknite »V redu«, da nadaljujete s pisanjem v Wordu.

Opombe:

V vrstici kode “dtTedenDan = vbPonedeljek", Lahko spremenite"vb ponedeljek"Da"vb Torek""vbSreda""vbČetrtek""vbPetek""vbSobota"Ali"vbNedelja”V skladu s tem.

Mesečni opomnik

Na enak način obstaja tudi mesečni opomnik, ki vas opozori na mesečno opravilo.

1. Še vedno naredite prve 4 korake v "Prva vrsta: dnevni opomnik".
2. Nato prilepite kode tja:

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. Nenazadnje kliknite »Shrani normalno«.

Podobno se pri vsakem odpiranju programa Word odpre okno s sporočilom.

Opomba:

V vrstici kode “dtDan = 20”, Številka je datum, ko morate izpolniti mesečno nalogo. Ne pozabite ga spremeniti, preden zaženete makro.

Tretja vrsta: Opomniki za razliko v datumu ali času

Glede na to, da skoraj vse ima rok, je treba imeti v mislih natančen preostali čas oziroma število dni. Zato lahko naslednja dva makra samodejno izračunata razliko med trenutnim datumom ali časom in datumom ali časom roka. To je vidno, ko odprete Word, in prikaže rezultat v sporočilnem oknu.

Koraki za zagon in shranjevanje makra so enaki kot zgoraj.

Tu je makro, s katerim dobimo dnevno razliko:

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

In rezultat je:

Opomba:

Ne pozabite spremeniti vrstice kode “dtDeadlineDay = # 2/20/2017 #". Samo spremenite datum, kot ga potrebujete.

Nato je naslednji makro, da dobimo časovno razliko:

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

In rezultat je:

Opomba:

Zamenjajte čas vdtDeadlineTime = TimeValue (“16:40:00 PM”)«S smiselnim.

Vredno vredno varnostno kopiranje

Nikoli ne bomo podcenjevali pomembnosti in tega, kar lahko naredi po poškodbi datoteke. Poleg tega svetujemo, da vsaj vsak dan, tedensko ali mesečno objavite rezervni načrt. Varnostno kopiranje je natančna priprava, da preprečimo poškodbe naših podatkov. V nasprotnem primeru je zadnji napor, ki ga lahko prihranimo, pridobiti a poškodovano orodje za obnovitev podatkov Word.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovano orodje za popravilo Excel xls - in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com