Tulevaisuuden tai menneen päivämäärän lisääminen Word-asiakirjaan VBA-koodien avulla

Tässä artikkelissa näytämme sinulle mielenkiintoisen tempun tulevan tai menneen päivämäärän lisäämiseksi Word-asiakirjaasi VBA-koodien avulla.

Yleensä meillä ei ole vaikeuksia lisätä nykyistä päivämäärää Word-asiakirjaamme. Silti silloin tällöin voimme valmistautua tarvittavaan asiakirjaan ensi viikolla tai kuukaudessa tai jopa myöhemmin. Sitten tässä on ongelma, jota et voi ohittaa. Kuinka voit lisätä tulevan päivämäärän Word-tiedostoon? Ja joskus entä edes mennyt?

Siksi uskomme, että sinun on ymmärrettävä tämä hyödyllinen menetelmä, jotta voit suorittaa työtehtäväsi paremmin.

Käytä VBA-koodeja tulevaisuuden lisäämiseen tai päivämäärän liittämiseen

  1. Aloita avaamalla Word-dokumentti.
  2. Napsauta sitten Kehittäjä-välilehteä.
  3. Napsauta seuraavaksi "Visual Basic" avataksesi VBA-editorin. Jos "Kehittäjä"-välilehti ei ole käytettävissä Word Ribbonissa, voit avata editorin painamalla "Alt+F11".Valitse "Kehittäjä" -> Napsauta "Visual Basic"
  4. Napsauta nyt editorissa "Normaali" vasemmalla puolella.
  5. Napsauta sitten työkalupalkissa "Lisää".
  6. Valitse seuraavaksi listavalikosta ”Moduuli”.Napsauta "Normaali" -> Napsauta "Lisää" -> Napsauta "Moduuli"
  7. Kaksoisnapsauta nyt juuri lisättyä moduulia, jolloin muokkausalue on käytettävissä oikealla puolella.
  8. Liitä vain seuraavat koodit sinne:
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. Napsauta seuraavaksi "Tallenna" -painiketta ja sulje VBA-editori.Kaksoisnapsauta Uusi moduuli -> Liitä koodit -> Napsauta "Tallenna"
  2. Vaihda nyt takaisin Word-asiakirjanäyttöön ja aseta osoitin paikkaan, johon tuleva tai mennyt päivämäärä menee.
  3. Napsauta sitten "Kehittäjä" -välilehteä uudelleen.
  4. Ja napsauta "Makrot" "Koodi" -ryhmässä avataksesi "Makrot" -ikkunan. Jälleen, jos "Kehittäjä"-välilehteä ei näy, sinun tarvitsee vain painaa "Alt + F8".Napsauta "Kehittäjä" -> Napsauta "Makrot"
  5. Etsi ja valitse "Makrot"-ikkunassa "InsertFutureOrPastDate" -makro.
  6. Napsauta sitten "Suorita".Valitse "InsertFutureOrPastDate" -> Napsauta "Suorita"
  7. Sitten sinua tervehtii viestilaatikko. Voit kirjoittaa ruudun alareunassa olevaan tekstikenttään numeron, joka edustaa tulevaan päivämäärään jäljellä olevia päiviä. Jos esimerkiksi haluat lisätä huomisen päivämäärän, kirjoita siihen "1". Samoin, jos tarvitset menneen päivämäärän, lisää vain miinusmerkki ennen arvoa, kuten "-1" eiliselle.
  8. Muista napsauttaa “OK”.Kirjoita tekstikenttään -> napsauta "OK"Lisää tuleva ja mennyt päivämäärä

Huomautus: Koodeissa "Selection.TypeText Text:=Format(Date + strNumberOfDays, "ppdd, MMMM dd, yyyy"), "ppdd, MMMM dd, yyyy" edustaa päivämäärämuotoa, jossa "M" tarkoittaa "kuukautta". , "d" tarkoittaa "päivää", "y" tarkoittaa "vuosi" ja "dddd" tarkoittaa "viikko", joten voit vapaasti muuttaa sitä haluamallasi tavalla.

Hanki arvokkaat tiedostosi takaisin

Word on herkkä romahtamiseen, mikä saattaa Word-tiedostomme vaaraan. Ajoittain osa korvaamattomista tiedoistamme on vain poissa. Mutta se, mikä on mennyt, ei ole täysin poissa. Voit istua valittamassa kriittisten tiedostojesi menetystä tai valita asiantuntijan vaurioitunut Word-palautustyökalu noutaa ne.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien Excel xls -tiedoston ongelman korjaus ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com

Kommenttien lisääminen on estetty.