Šiame straipsnyje parodysime įdomų triuką, kaip į „Word“ dokumentą įterpti būsimą ar praėjusią datą naudojant VBA kodus.
Paprastai mums nėra sunku įterpti dabartinę datą į savo „Word“ dokumentą. Tačiau retkarčiais galėtume ruoštis reikalingam dokumentui kitą savaitę ar mėnesį ar net vėliau. Tada čia yra problema, kurios negalite apeiti. Kaip į Word failą įterpti būsimą datą? O kartais kaip apie praeitį?
Todėl manome, kad turite suvokti šį naudingą metodą, kad geriau atliktumėte savo darbo užduotis.
Norėdami įterpti ateitį arba įklijuoti datą, naudokite VBA kodus
- Norėdami pradėti, atidarykite „Word“ dokumentą.
- Tada spustelėkite skirtuką „Kūrėjas“.
- Tada spustelėkite „Visual Basic“, kad atidarytumėte VBA redaktorių. Jei skirtuko „Kūrėjas“ nėra „Word“ juostelėje, galite paspausti „Alt+ F11“, kad atidarytumėte rengyklę.
- Dabar redaktoriuje kairėje pusėje spustelėkite „Normalus“.
- Tada įrankių juostoje spustelėkite „Įterpti“.
- Tada sąrašo meniu pasirinkite „Modulis“.
- Dabar dukart spustelėkite naujai įdėtą modulį, o redagavimo sritis bus pasiekiama dešinėje pusėje.
- Tiesiog įklijuokite šiuos kodus:
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
- Tada spustelėkite mygtuką „Išsaugoti“ ir uždarykite VBA redaktorių.
- Dabar grįžkite į „Word“ dokumento ekraną ir užveskite žymeklį toje vietoje, kur yra ateities arba praeities data.
- Tada dar kartą spustelėkite skirtuką „Kūrėjas“.
- Ir spustelėkite „Makrokomandos“ grupėje „Kodas“, kad atidarytumėte langą „Makrokomandos“. Vėlgi, jei skirtukas "Kūrėjas" nerodomas, tereikia paspausti "Alt + F8".
- Dabar lange „Makrokomandos“ raskite ir pasirinkite makrokomandą „InsertFutureOrPastDate“.
- Toliau spustelėkite „Vykdyti“.
- Tada jus pasitiks pranešimų dėžutė. Laukelio apačioje esančiame teksto laukelyje galite įvesti skaičių, nurodydami likusias dienas iki būsimos datos. Pavyzdžiui, jei norite įterpti rytojaus datą, ten turėtumėte įvesti „1“. Panašiai, jei jums reikia ankstesnės datos, tiesiog pridėkite minuso ženklą prieš reikšmę, pvz., „-1“ vakar.
- Nepamirškite spustelėti „Gerai“.
Pastaba: koduose „Selection.TypeText Text:=Format(Data + strNumberOfDays, „dddd, MMMM dd, yyyy“)“ „dddd, MMMM dd, yyyy“ reiškia datos formatą, kur „M“ reiškia „mėnuo“ , „d“ reiškia „diena“, „y“ reiškia „metus“ ir „dddd“ reiškia „savaitę“, todėl galite laisvai keisti ją kaip norite.
Atgaukite vertingus failus
„Word“ gali sugriūti, o tai kelia pavojų mūsų „Word“ failams. Retkarčiais kai kurių mūsų neįkainojamų duomenų tiesiog nebėra. Tačiau tai, kas dingo, nėra visiškai išnykusi. Galite sėdėti ir apgailestauti, kad praradote svarbius failus, arba galite pasirinkti profesionalų sugadintas Word atkūrimo įrankis juos atgauti.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant Excel xls failo problemų taisymas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com