Ebben a cikkben bemutatunk egy érdekes trükköt, amellyel jövőbeli vagy múltbeli dátumot illeszthet be a Word-dokumentumba VBA-kódokon keresztül.
Általában nem okoz nehézséget az aktuális dátum beszúrása a Word dokumentumunkba. Időnként mégis készülhetünk a jövő héten, hónapban vagy akár később szükséges dokumentumra. Akkor itt van az a probléma, amit nem lehet megkerülni. Hogyan illeszthet be jövőbeli dátumot a Word fájlba? És néha mit szólnál egy múlthoz?
Ezért úgy gondoljuk, hogy meg kell ragadnia ezt a hasznos módszert, hogy jobban tudja teljesíteni munkafeladatait.
Használjon VBA kódokat jövőbeli beszúrásához vagy dátum beillesztéséhez
- Először nyissa meg a Word dokumentumot.
- Ezután kattintson a „Fejlesztő” fülre.
- Ezután kattintson a „Visual Basic” elemre a VBA-szerkesztő megnyitásához. Ha a „Fejlesztő” lap nem érhető el a Word szalagon, az „Alt+F11” lenyomásával nyissa meg a szerkesztőt.
- Most a szerkesztőben kattintson a „Normál” gombra a bal oldalon.
- Ezután kattintson a „Beszúrás” gombra az eszköztáron.
- Ezután válassza ki a „Modul” elemet a lista menüből.
- Most kattintson duplán az újonnan beillesztett modulra, és a szerkesztési terület elérhetővé válik a jobb oldalon.
- Csak illessze be oda a következő kódokat:
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
- Ezután kattintson a „Mentés” gombra, és zárja be a VBA-szerkesztőt.
- Most váltson vissza a Word dokumentum képernyőjére, és helyezze a kurzort arra a helyre, ahová a jövő vagy a múlt dátuma kerül.
- Ezután kattintson újra a „Fejlesztő” fülre.
- És kattintson a „Makrók” elemre a „Kód” csoportban a „Makrók” ablak megnyitásához. Ismét, ha a „Fejlesztő” fül nem jelenik meg, csak meg kell nyomnia az „Alt+F8” gombot.
- Most a „Makrók” ablakban keresse meg és válassza ki az „InsertFutureOrPastDate” makrót.
- Ezután kattintson a „Futtatás” gombra.
- Ezután egy üzenetdoboz fogadja Önt. A mező alján található szövegmezőbe beírhat egy számot, amely a jövőbeli dátumig hátralévő napokat jelzi. Például, ha a holnapi dátumot szeretné beszúrni, írja be az „1”-et. Hasonlóképpen, ha múltbeli dátumra van szüksége, csak adjon hozzá egy mínuszjelet az érték elé, például „-1” a tegnapi dátumhoz.
- Ne felejtsen el kattintani az „OK” gombra.
Megjegyzés: A „Selection.TypeText Text:=Format(Date + strNumberOfDays, „nnn, MMMM nd, yyyy”) kódokban a „nnn, MMMM nn, yyyy” a dátumformátumot jelenti, ahol az „M” a „hónap” , a „d” a „nap”, az „y” az „év” és a „ddd” a „hét”, így szabadon módosíthatja, ahogy tetszik.
Szerezze vissza értékes fájljait
A Word érzékeny az összeomlásra, ami veszélybe sodorja Word fájljainkat. Időnként néhány felbecsülhetetlen adatunk eltűnt. De ami elmúlt, az nem tűnt el teljesen. Leülhet siránkozni a kritikus fájlok elvesztése miatt, vagy választhat egy jártasat sérült Word-helyreállító eszköz letölteni.
Szerző Bevezetés:
Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve Excel xls fájl hibajavítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com