Kuidas sisestada oma Wordi dokumenti VBA koodide kaudu tulevane või möödunud kuupäev

Sõnalahendused September 28, 2025

Selles artiklis näitame teile huvitavat nippi tulevase või möödunud kuupäeva sisestamiseks Wordi dokumenti VBA-koodide kaudu.

Üldiselt pole meil Wordi dokumenti praeguse kuupäeva sisestamisega raskusi. Ometi võiksime aeg-ajalt valmistuda vajalikuks dokumendiks järgmisel nädalal või kuul või isegi hiljem. Siin on probleem, millest ei saa mööda minna. Kuidas saate Wordi faili tulevase kuupäeva sisestada? Ja mõnikord isegi minevik?

Seetõttu arvame, et peate oma tööülesannete paremaks täitmiseks sellest kasulikust meetodist aru saama.

Kasutage tuleviku sisestamiseks või kuupäeva kleepimiseks VBA koode

  1. Alustuseks avage oma Wordi dokument.
  2. Seejärel klõpsake vahekaarti "Arendaja".
  3. Järgmisena klõpsake VBA redaktori avamiseks "Visual Basic". Kui vahekaart „Arendaja” pole teie Wordi lindil saadaval, võite selle asemel redaktori avamiseks vajutada klahvikombinatsiooni Alt+ F11.Klõpsake "Arendaja" -> Klõpsake "Visual Basic".
  4. Nüüd klõpsake redaktoris vasakus servas nuppu "Tavaline".
  5. Seejärel klõpsake tööriistaribal nuppu "Lisa".
  6. Järgmisena valige loendimenüüst "Moodul".Klõpsake "Tavaline" -> Klõpsake "Lisa" -> klõpsake "Moodul"
  7. Nüüd topeltklõpsake äsja sisestatud moodulit ja redigeerimisala on saadaval paremal.
  8. Lihtsalt kleepige sinna järgmised koodid:
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
  1. Järgmisena klõpsake nuppu "Salvesta" ja sulgege VBA redaktor.Topeltklõpsake uut moodulit -> Kleebi koodid -> klõpsake "Salvesta"
  2. Lülitage nüüd tagasi Wordi dokumendiekraanile ja asetage kursor kohta, kuhu läheb tulevane või möödunud kuupäev.
  3. Seejärel klõpsake uuesti vahekaarti "Arendaja".
  4. Ja klõpsake rühmas "Kood" nuppu "Makrod", et avada aken "Makrod". Jällegi, kui vahekaarti "Arendaja" ei kuvata, peate lihtsalt vajutama "Alt + F8".Klõpsake "Arendaja" -> Klõpsake "Makrod"
  5. Nüüd otsige aknast "Macros" üles makro "InsertFutureOrPastDate" ja valige see.
  6. Järgmisena klõpsake nuppu "Käivita".Valige "InsertFutureOrPastDate" -> klõpsake "Run"
  7. Seejärel tervitab teid sõnumikast. Saate sisestada kasti allosas olevasse tekstikasti numbri, mis tähistab tulevase kuupäevani jäänud päevi. Näiteks kui soovite sisestada homse kuupäeva, peaksite sinna sisestama "1". Samuti, kui vajate möödunud kuupäeva, lisage väärtuse ette lihtsalt miinusmärk, nt eilseks "-1".
  8. Ärge unustage klõpsata "OK".Sisestage tekstikasti -> klõpsake "OK"Sisestage tulevik ja minevik

Märkus. Koodides "Selection.TypeText Text:=Format(Date + strNumberOfDays, "ppdd, MMMM dd, yyyy") tähistab "ppdd, MMMM dd, yyyy" kuupäeva vormingut, kus "M" tähistab "kuu" , "d" tähistab "päeva", "y" tähistab "aastat" ja "ddd" tähistab "nädalat", nii et saate seda vabalt muuta, nagu soovite.

Saate oma väärtuslikud failid tagasi

Word on vastuvõtlik kokkuvarisemisele, mis seab meie Wordi failid ohtu. Aeg-ajalt on mõned meie hindamatud andmed lihtsalt kadunud. Kuid see, mis on läinud, pole täielikult kadunud. Võite istuda ja hädaldada oma kriitiliste failide kaotamise üle või valida asjatundja kahjustatud Wordi taastamise tööriist et neid kätte saada.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli xls-faili probleemide parandamine ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.