Ugrás a tartalomra

Hogyan lehet menteni az aktuális dátummal rendelkező Word dokumentumot fájlnévben?

Ha a Word dátum mentésekor automatikusan hozzá kell adnia az aktuális dátumot a fájlnévhez, hogyan kezelheti ezt a feladatot a Word fájlban?

Az aktuális dátummal rendelkező Word dokumentumot fájlnévben mentse VBA kóddal


Az aktuális dátummal rendelkező Word dokumentumot fájlnévben mentse VBA kóddal

A Word dátum mentésekor az aktuális dátum automatikus hozzáadásához a fájlnévhez tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba:

VBA-kód: Az aktuális dátummal rendelkező Word-dokumentum mentése fájlnévbe

Public Sub FileSave1()
    Dim xDlg As Dialog
    Dim xTitle As String
    On Error Resume Next
    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
    xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "-" & _
        Format((Month(Now() + 1) Mod 100), "0#") & "-" & _
        Format((Day(Now()) Mod 100), "0#")
    Set xDlg = Dialogs(wdDialogFileSaveAs)
    xDlg.Name = xTitle
    xDlg.Show
End Sub

3. Miután beillesztette a kódot a modulba, nyomja meg a gombot F5 kulcs a kód futtatásához, és a Mentés másként ablak jelenik meg, az aktuális dátummal automatikusan a Fájlnév szövegmező, lásd a képernyőképet:

doc mentés dátummal 1

4. És akkor csak be kell írnia a saját fájlnevét, amire szüksége van, lásd a képernyőképet:

doc mentés dátummal 2

A legjobb irodai hatékonyságnövelő eszközök

Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!

Merüljön el az alábbi kiemelt funkciókban vagy kattintson ide, hogy felfedezze a Kutools for Word teljes erejét.

📘 Dokumentummesterség: Felosztott oldalak  /  Dokumentumok egyesítése  /  Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/XLSX)  /  Kötegelt konvertálás PDF-be  /  Oldalak exportálása képként  /  Nyomtasson több fájlt egyszerre ...

Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között   /  Minden kép átméretezése   /  Transzponálja a táblázat sorait és oszlopait  /  Táblázat konvertálása szöveggé ...

🧹 Könnyed tisztításSöpörj el Extra helyek  /  Szakaszszünetek  /   Minden fejléc  /  Szövegdobozok  /  Hiperhivatkozások  /  További eltávolító eszközökért keresse fel az Eltávolítási csoportot

Kreatív betétek: betétlap Ezer elválasztó  /  Jelölőnégyzetek  /  Rádió gombok  /  QR-kód  /  Vonalkód  /  Átlós vonal táblázat  /  Egyenletfelirat  /  Képfelirat  /  Táblázat felirata  /  Több kép  /  Fedezzen fel többet a Beszúrás csoportunkban

???? Precíziós kiválasztás: Határozzon meg konkrét oldalakat  /  asztalok  /  formák  /  címsor bekezdései  /  A Select Group segítségével könnyedén navigálhat

Star Enhancements: Gyorsan navigáljon bármely helyre  /  ismétlődő szöveg automatikus beszúrása  /  zökkenőmentesen válthat a dokumentumablakok között  /  11 Konverziós eszközök ...

Alakítsa át Word feladatait a Kutools segítségével. 👉 Töltse le most 30 napos próbaverzióval 🚀.

 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations