Kako v kode VBA vstavite prihodnji ali prejšnji datum v svoj Wordov dokument

Skupna raba zdaj:

V tem članku vam bomo pokazali zanimiv trik za vstavljanje prihodnjega ali preteklega datuma v vaš Wordov dokument prek kod VBA.

Na splošno nimamo težav z vstavljanjem trenutnega datuma v naš Wordov dokument. Toda zdaj in takrat bi se lahko pripravljali na dokument, ki ga potrebujemo naslednji teden ali mesec ali celo pozneje. Potem je tu težava, ki je ne morete zaobiti. Kako lahko v datoteko Word vstavite datum v prihodnosti? In včasih kaj o preteklem celo?

Zato menimo, da morate sprejeti to uporabno metodo, da boste bolje izpolnili svoje delovne naloge.

Uporabite kode VBA za vstavljanje prihodnjega datuma ali lepljenja datuma

  1. Za začetek odprite Wordov dokument.
  2. Nato kliknite jeziček »Razvijalec«.
  3. Nato kliknite »Visual Basic«, da odprete urejevalnik VBA. Če zavihek »Razvijalec« na vašem traku Word ni na voljo, lahko namesto tega pritisnete »Alt + F11«, da odprete urejevalnik.Kliknite »Razvijalec« -> kliknite »Visual Basic«
  4. Zdaj v urejevalniku na levi strani kliknite »Normal«.
  5. Nato v orodni vrstici kliknite »Vstavi«.
  6. Nato v meniju s seznamom izberite »Modul«.Kliknite "Običajno" -> kliknite "Vstavi" -> kliknite "Modul"
  7. Zdaj dvokliknite na novo vstavljeni modul in območje za urejanje bo na voljo na desni strani.
  8. Tam preprosto prilepite naslednje kode:
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. Nato kliknite gumb »Shrani« in zaprite urejevalnik VBA.Dvokliknite nov modul -> Prilepi kode -> Kliknite "Shrani"
  2. Zdaj se preklopite nazaj na zaslon Wordovega dokumenta in postavite kazalec na mesto, kamor sega prihodnji ali prejšnji datum.
  3. Nato znova kliknite jeziček »Razvijalec«.
  4. In kliknite »Makri« v skupini »Koda«, da odprete okno »Makri«. Če se zavihek »Razvijalec« ne prikaže, morate samo pritisniti »Alt + F8«.Kliknite »Razvijalec« -> kliknite »Makri«
  5. Zdaj v oknu »Macros« poiščite in izberite makro »InsertFutureOrPastDate«.
  6. Nato kliknite »Zaženi«.Izberite "InsertFutureOrPastDate" -> kliknite "Run"
  7. Potem vas bo pozdravilo okence s sporočilom. Številko lahko vnesete v besedilno polje na dnu polja, ki predstavlja dneve, ki so ostali do prihodnjega datuma. Če želite na primer vstaviti jutrišnji datum, tam vnesite "1". Če potrebujete pretekli datum, pred vrednostjo dodajte znak minus, na primer »-1« za včeraj.
  8. Ne pozabite klikniti »V redu«.Vnesite v besedilno polje -> kliknite "V redu"Vstavite datum prihodnosti in preteklosti

Opomba: V kodah "Selection.TypeText Text: = Format (Date + strNumberOfDays," dddd, MMMM dd, yyyy ")", "dddd, MMMM dd, yyyy" predstavlja obliko datuma, kjer "M" pomeni "mesec" , »D« za »dan«, »y« za »leto« in »dddd« za »teden«, zato ga lahko poljubno spremenite.

Ponovno pridobite svoje dragocene datoteke

Word je dovzeten za propadanje, kar naše Wordove datoteke ogroža. Tu in tam nekaterih naših neprecenljivih podatkov preprosto ni več. A kar je izginilo, ni povsem izginilo. Lahko sedite in objokujete izgubo kritičnih datotek ali pa izberete strokovnjaka poškodovano orodje za obnovitev Word da jih prikličemo.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Popravilo težave z datoteko Excel xls in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com

Skupna raba zdaj:

Komentarji so zaprti.