Jak uložit dokument Word s aktuálním datem do názvu souboru?
Pokud potřebujete při ukládání dokumentu Wordu automaticky přidat aktuální datum do názvu souboru, jak byste mohli vyřešit tento úkol v souboru Word?
Uložte dokument Word s aktuálním datem do souboru s kódem VBA
Uložte dokument Word s aktuálním datem do souboru s kódem VBA
Chcete-li při ukládání dokumentu Word automaticky přidat aktuální datum do názvu souboru, proveďte následující kroky:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. A pak klikněte Vložit > Modul, zkopírujte a vložte níže uvedený kód do otevřeného prázdného modulu:
Kód VBA: Uložte dokument Word s aktuálním datem do názvu souboru
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. Po vložení kódu do modulu stiskněte F5 klíč ke spuštění tohoto kódu a Uložit jako Zobrazí se okno s aktuálním datem automaticky do Název souboru textové pole, viz screenshot:
4. A pak stačí zadat vlastní název souboru, jak potřebujete, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!
🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah / Přepsat text / Shrnout dokumenty / Vyžádejte si informace na základě dokumentu, vše ve Wordu
📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF / Exportujte stránky jako obrázky / Tisk více souborů najednou...
✏ Úprava obsahu: Dávkové hledání a nahrazení přes více souborů / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...
🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...
➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Tabulka diagonálních čar / Titulek rovnice / Titulek obrázku / Titulek tabulky / Více obrázků / Objevte více v Vložit skupinu...
???? Přesné výběry: Přesně konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ Vylepšení hvězd: Navigujte rychle na libovolné místo / automatické vkládání opakujícího se textu / plynule přepínat mezi okny dokumentů / 11 Konverzní nástroje...