2 rychlé způsoby, jak do dokumentu Word vložit dny nebo zbývající čas před termínem

V dnešním článku vám představíme 2 rychlé způsoby, jak do dokumentu aplikace Word vložit dny nebo čas zbývající před termínem.

Každou chvíli, když pracujete na důležitém projektu, zjistíte, že musíte mít na paměti přesné dny nebo čas zbývající před termínem, abyste mohli upravit své pracovní tempo. Pak bude skvělý nápad vložit dny nebo čas zbývající před termínem do dokumentu aplikace Word, aby vám mohly připomenout poslední zbývající čas.

V následujícím textu bychom vám chtěli představit 2 metody, jak pomocí maker vypočítat a získat hodnotu.

Vypočítejte zbývající dny před termínem

1. V první řadě umístěte kurzor na místo, kam chcete vložit číslo.
2. Poté klikněte na kartu Vývojář.
3. Poté klikněte na „Visual Basic“ ve skupině „Code“ a otevřete editor VBA. Můžete také místo toho stisknout „Alt + F11“, pokud ve vašem Wordu není k dispozici karta „Vývojář“.
4. Nyní klikněte na „Normální“ a poté na „Vložit“.
5. Dále zvolte „Modul“.
6. Poklepáním na nový modul otevřete oblast úprav na pravé straně.
7. Pak tam vložte následující 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. Dále klikněte na tlačítko „Spustit“.
9. Budete uvítáni dialogovým oknem, například níže:

Do textového pole zadejte datum uzávěrky a klikněte na „OK“.

Pro snadné použití v budoucnu můžete kliknout na „Makra“ na kartě „Vývojář“, vybrat správné makro a poté kliknout na „Spustit“. Spustí se dialogové okno.

Vypočítejte zbývající čas před termínem

Někdy, kromě toho, že zbývají dny, možná budete také potřebovat vědět, kolik času vám zbývá do určitého času. Potom budete potřebovat následující makro.

1. Opakujte prvních 8 kroků výše. Kódy musíte nahradit pouze 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. Nezapomeňte stisknout tlačítko „Spustit“.
3. Tentokrát budete mít dialogové okno „Časový limit“. Zadejte čas uzávěrky a poté klikněte na „OK“.

Udržujte soubory bez úhony

Nejlepší a nejjednodušší způsob, jak zachovat integritu souborů a uchovat je před poškozením, je často provádět zálohy. Chápeme však, že je těžké držet se rutiny, a proto je každý den tolik poškozených souborů. K opravě těchto problematických souborů budete potřebovat poškozený nástroj pro opravu Wordu.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně nástroj pro opravu chyb xlsx a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com