2 rýchle spôsoby, ako vložiť dni alebo čas, ktorý zostáva pred termínom, do dokumentu Word

V dnešnom článku vám predstavíme 2 rýchle spôsoby, ako do dokumentu Wordu vložiť dni alebo čas zostávajúci pred termínom.

Raz za čas, keď pracujete na dôležitom projekte, zistíte, že musíte pamätať na presné dni alebo čas zostávajúci pred termínom, aby ste mohli prispôsobiť svoje pracovné tempo. Potom bude vynikajúci nápad vložiť do vášho dokumentu Word dni alebo čas zostávajúci pred termínom, aby vám mohli pripomenúť posledný zostávajúci čas.

V nasledujúcom texte by sme vám chceli predstaviť 2 spôsoby, ako používať makra na výpočet a získanie hodnoty.

Vypočítajte dni zostávajúce do konečného termínu

1. V prvom rade umiestnite kurzor na miesto, kam chcete vložiť číslo.
2. Potom kliknite na kartu Vývojár.
3. Ďalej kliknite na „Visual Basic“ v skupine „Code“ a otvorte editor VBA. Môžete tiež stlačiť kombináciu klávesov „Alt + F11“, ak vo vašom Word nie je k dispozícii karta „Vývojár“.
4. Teraz kliknite na „Normálny“ a potom na „Vložiť“.
5. Ďalej zvoľte „Modul“.
6. Dvojitým kliknutím na nový modul otvoríte oblasť úprav na pravej strane.
7. Potom tam vložte nasledujúce kódy:

Sub CountDownfromTodayToDeadlineDate()
  Dim dtDeadlineDate As Date
  Dim lDaysLeft As Long

  '  Input the deadline date to calculate the date difference.
  dtDeadlineDate = InputBox("Enter the deadline date", "Deadline Date", "For example:2017/2/14") 
  lDaysLeft = DateDiff("d", Now, dtDeadlineDate)
 
  '  Output the date difference from today to the deadline date in word document. 
  Selection.Text = "There are " & lDaysLeft & " days left from today to " & dtDeadlineDate & vbCrLf
End Sub

8. Ďalej kliknite na tlačidlo „Spustiť“.
9. Privíta vás dialógové okno, napríklad nižšie:

Zadajte dátum termínu do textového poľa a kliknite na „OK“.

Pre ľahké použitie v budúcnosti môžete kliknúť na „Makrá“ na karte „Vývojár“, zvoliť správne makro a potom kliknúť na „Spustiť“. Spustí sa dialógové okno.

Vypočítajte čas zostávajúci do konečného termínu

Niekedy, okrem toho, že vám zostanú dni, budete možno potrebovať vedieť, koľko času vám ešte zostáva do konkrétneho času. Potom budete potrebovať nasledujúce makro.

1. Zopakujte prvých 8 krokov vyššie. Kódy musíte nahradiť iba týmito:

Sub CountDownfromNowToDeadlineTime()
  Dim dtTimeNow As Date
  Dim dtDeadlineTime As Date
  Dim lTimeLeft As Long
  Dim lHour As Long
  Dim lMinute As Long
  Dim lSecond As Long
 
  '  Get the time now and the deadline time.
  dtTimeNow = TimeValue(Now)
  dtDeadlineTime = InputBox("Enter the deadline time","Deadline Time", "For example:18:00:00") 
  '  Calculate the time difference.
  lTimeLeft = DateDiff("s", dtTimeNow, dtDeadlineTime)
  lHour = lTimeLeft \ 3600
  lTimeLeft = lTimeLeft - lHour * 3600
  lMinute = lTimeLeft \ 60
  lSecond = lTimeLeft - lMinute * 60
 
  Selection.Text = "There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from now to " & dtDeadlineTime & vbCrLf 
End Sub

2. Nezabudnite stlačiť tlačidlo „Spustiť“.
3. Tentokrát budete mať k dispozícii dialógové okno „Časový limit“. Zadajte čas uzávierky a potom kliknite na „OK“.

Uchovávajte súbory bez poškodenia

Najlepším a najjednoduchším spôsobom, ako zachovať integritu súborov a zabrániť ich poškodeniu, je často zálohovať. Chápeme však, že je ťažké držať sa rutiny, a preto je každý deň toľko poškodených súborov. Na opravu týchto problémových súborov budete potrebovať poškodený nástroj na opravu 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 nástroj na opravu chýb xlsx a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S