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 radeost, 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 'Zadajte dátum termínu na výpočet rozdielu v dátume. dtDeadlineDate = InputBox ("Zadajte dátum uzávierky", "Dátum uzávierky", "Napríklad: 2017/2/14") lDaysLeft = DateDiff ("d", Teraz, dtDeadlineDate) 'Vypíše rozdiel dátumov od dnešného dňa do dátumu uzávierky. v dokumente Word. Selection.Text = "Od dnes zostávajú" & lDaysLeft & "dni do" & 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 'Získajte aktuálny čas a konečný čas. dtTimeNow = TimeValue (teraz) dtDeadlineTime = InputBox ("Zadajte čas uzávierky", "Čas uzávierky", "Napríklad: 18: 00: 00") 'Vypočítajte časový rozdiel. lTimeLeft = DateDiff ("s", dtTimeNow, dtDeadlineTime) lHour = lTimeLeft \ 3600 lTimeLeft = lTimeLeft - lHour * 3600 lMinute = lTimeLeft \ 60 lSecond = lTimeLeft - lMinute * 60 Selection.Text = "Existuje" & & lMinute & „minúty“ & lSecond & „sekundy zostávajú odteraz do„ & 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