U ovom članku ćemo vam pokazati zanimljiv trik za umetanje budućeg ili prošlog datuma u vaš Word dokument putem VBA kodova.
Općenito, nemamo poteškoća s umetanjem trenutnog datuma u naš Word dokument. Ipak, s vremena na vrijeme mogli bismo se pripremati za dokument potreban sljedeći tjedan ili mjesec ili čak kasnije. Onda je ovdje problem koji ne možete zaobići. Kako možete umetnuti budući datum u Word datoteku? A ponekad čak i prošli?
Stoga mislimo da morate shvatiti ovu korisnu metodu kako biste bolje ispunjavali svoje radne zadatke.
Koristite VBA kodove za umetanje budućeg datuma ili lijepljenje datuma
- Za početak otvorite svoj Word dokument.
- Zatim kliknite karticu "Razvojni programer".
- Zatim kliknite "Visual Basic" da biste otvorili VBA uređivač. Ako kartica "Razvojni programer" nije dostupna na vrpci Worda, umjesto toga možete pritisnuti "Alt+ F11" da otvorite uređivač.
- Sada u uređivaču kliknite "Normalno" na lijevoj strani.
- Zatim kliknite "Umetni" na alatnoj traci.
- Zatim odaberite "Modul" s izbornika popisa.
- Sada dvaput kliknite novoumetnuti modul i područje za uređivanje bit će dostupno s desne strane.
- Samo zalijepite sljedeće kodove tamo:
Sub InsertFutureOrPastDate()
Dim strNumberOfDays As String
' Input the number of days you want to insert from today to the future or past date.
strNumberOfDays = InputBox("Please input the number of days you want to insert", "future or past date", "Input here.For exemple,input 1 to insert the date of tomorrow")
' Insert the future or past date according to the inputed number of days
If strNumberOfDays <> "" Then
Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")
End If
End Sub
- Zatim kliknite gumb "Spremi" i zatvorite VBA uređivač.
- Sada se vratite na zaslon Word dokumenta i postavite kursor na mjesto gdje ide budući ili prošli datum.
- Zatim ponovno kliknite karticu "Razvojni programer".
- Kliknite "Makronaredbe" u grupi "Kôd" da biste otvorili prozor "Makronaredbe". Opet, ako kartica "Developer" nije prikazana, trebate samo pritisnuti "Alt+ F8".
- Sada u prozoru "Makronaredbe" pronađite i odaberite makronaredbu "InsertFutureOrPastDate".
- Zatim kliknite "Pokreni".
- Zatim će vas dočekati okvir s porukom. Možete unijeti broj u tekstualni okvir na dnu okvira koji predstavlja dane preostale do budućeg datuma. Na primjer, ako želite umetnuti sutrašnji datum, tamo biste trebali unijeti "1". Isto tako, ako vam je potreban prošli datum, samo dodajte znak minus ispred vrijednosti, kao što je "-1" za jučer.
- Ne zaboravite kliknuti "OK".
Napomena: U kodovima “Selection.TypeText Text:=Format(Date + strNumberOfDays, “dddd, MMMM dd, yyyy”)”, “dddd, MMMM dd, yyyy” predstavlja format datuma gdje “M” stoji za “mjesec” , “d” za “dan”, “y” za “godinu” i “dddd” za “tjedan”, tako da možete slobodno mijenjati kako želite.
Vratite svoje vrijedne datoteke
Word je podložan kolapsima što dovodi naše Word datoteke u opasnost. Tu i tamo neki od naših neprocjenjivih podataka jednostavno nestanu. Ali ono što je nestalo nije potpuno nestalo. Možete sjediti i žaliti zbog gubitka kritičnih datoteka ili možete odabrati stručnjaka oštećeni Word alat za oporavak da ih dohvati.
Uvod za autora:
Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Popravak problema s Excel xls datotekom i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com