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: