3 druhy užitočných pripomienok v programe Word vytvorené pomocou VBA

V tomto článku by sme vám radi predstavili 3 rôzne druhy pripomenutí v programe Word, ktoré môžete vytvoriť pomocou VBA.

Pretože niektorí z nás musia dennodenne narábať s mnohými súbormi v programe Word, je pravdepodobné, že sa im z toho, čo robiť, urobí závrat a niektoré úlohy niekedy necháme zrušené. V takom prípade vám pomôže pripomienka. Preto vám predstavujeme 3 druhy užitočných pripomenutí, ktoré môžete využiť na sledovanie toho, čo robiť.

Prvý druh: Denná pripomienka

Napríklad, ak si radšej robíte plán na zajtra na konci dňa, budete potrebovať dennú pripomienku. V editore VBA programu Word môžete pridať makro s názvom „AutoExec“. Potom sa pri každom otvorení aplikácie Word makro automaticky spustí a zobrazí sa okno s hlásením, ktoré ukáže, že všetky úlohy sa majú dokončiť v daný deň.

1. Najskôr otvorte Word a stlačte „Alt + F11“, aby ste otvorili editor VBA.
2. Potom kliknite na „Normálny“.
3. Ďalej kliknite na „Vložiť“.
4. A zvoľte „Modul“ v ponuke a vložte nový pod „Normálny“ projekt.
5. Teraz dvakrát kliknite na modul, aby ste vstúpili do oblasti úprav a tam vložili nasledujúce kódy:

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. Potom kliknite na „Uložiť normálne“, aby sa uložila zmena.

Výsledkom je, že pri každom otvorení programu Word sa zobrazí okno so správou so zoznamom všetkých úloh, ktoré musíte dokončiť. Kliknutím na „OK“ môžete otvoriť a pokračovať v úpravách konkrétneho dokumentu.

Poznámky:

1. V riadku kódu „dtDate = # 2/20/2017 #”, Dátum je deň, kedy musíte vykonať všetky činnosti. Nezabudnite sa podľa toho zmeniť.
2. V riadku kódu „MsgBox „Úlohy, ktoré je potrebné vykonať dnes:“ & vbCr & „1: Poslať fileXX Johnovi Smithovi“ & vbCr & „2: Dokončiť súbor YY“”, Celý obsah medzi úvodzovkami je zoznam úloh, ktorý musíte dodržiavať. Nahraďte ho vlastnými konkrétnymi misiami. Každú položku zoznamu vložte do úvodzoviek a spojte ju s predchádzajúcou položkou „& vbCr &”(Bez úvodzoviek).

Druhý druh: upomienky na opakujúce sa úlohy

Týždenná pripomienka

Prichádza týždenné pripomenutie, ktoré upozorňuje na veci, ktoré musíte každý týždeň robiť v rovnaký deň.

1. Najskôr zopakujte prvé 4 kroky vyššie.
2. Iba tentoraz prilepíte nasledujúce 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. Podobne kliknite nakoniec na tlačidlo „Uložiť normálne“.

Rovnako tak bude k dispozícii schránka so správami. Kliknutím na „OK“ môžete pokračovať v písaní v programe Word.

Poznámky:

V riadku kódu „dtWeekDay = vbPondelok„, Môžete zmeniť“vbpondelok"To"vbÚterý","vbStreda","vbŠtvrtok","vbPiatok","vbSobota“Alebo„vb Nedeľa“Zodpovedajúcim spôsobom.

Mesačná pripomienka

Rovnakým spôsobom existuje aj mesačná pripomienka, ktorá vám pripomína mesačnú úlohu.

1. Stále robte prvé 4 kroky v rámci programu „The First Kind: The Daily Reminder“.
2. Potom tam vložte kódy:

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. V neposlednom rade kliknite na „Uložiť normálne“.

Podobne sa pri každom otvorení programu Word vysunie okno so správou.

Poznámka:

V riadku kódu „dtDeň = 20”, Číslo je dátum, kedy potrebujete splniť mesačnú úlohu. Nezabudnite to pred spustením makra zmeniť.

Tretí druh: Pripomienky rozdielov dátumu a času

Keďže takmer všetko má termín, je potrebné mať na pamäti presný zostávajúci počet dní alebo času. Preto nasledujúce dve makrá dokážu automaticky vypočítať rozdiel medzi aktuálnym dátumom alebo časom a dátumom alebo časom termínu. A výsledok sa zobrazí v okne so správou, keď otvoríte Word.

Kroky na spustenie a uloženie makra sú rovnaké ako vyššie.

Toto je makro na získanie rozdielu dní:

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 výsledok je:

Poznámka:

Nezabudnite upraviť riadok s kódom „dtDeadlineDay = 2. 20. 2017 #“. Stačí zmeniť dátum, ako potrebujete.

Potom nasleduje makro na získanie časového rozdielu:

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 výsledok je:

Poznámka:

Čas nahraďte „dtDeadlineTime = TimeValue („16:40:00“)”So zmysluplným.

Užitočná záloha

Nikdy nebudeme podceňovať dôležitosť a čo môže robiť po poškodení súboru. Okrem toho sa odporúča vytvoriť plán zálohovania minimálne na dennej, týždennej alebo mesačnej báze. Zálohovanie je presná príprava, ktorú by sme mali urobiť, aby sme zabránili poškodeniu našich údajov. Inak by sme mohli vynaložiť posledné úsilie na získanie a poškodený nástroj na obnovu dát Wordu.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený Excel xls opravný nástroj a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S