Wie speichere ich ein Word-Dokument mit dem aktuellen Datum im Dateinamen?

Wenn Sie beim Speichern eines Word-Dokuments das aktuelle Datum automatisch in den Dateinamen einfügen müssen, wie können Sie mit dieser Aufgabe in der Word-Datei umgehen?

Speichern Sie ein Word-Dokument mit dem aktuellen Datum im Dateinamen mit VBA-Code

---

Speichern Sie ein Word-Dokument mit dem aktuellen Datum im Dateinamen mit VBA-Code

Führen Sie die folgenden Schritte aus, um beim Speichern des Word-Dokuments automatisch das aktuelle Datum zum Dateinamen hinzuzufügen:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Und dann klicken Insert > ModulKopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein:

VBA-Code: Speichern Sie ein Word-Dokument mit dem aktuellen Datum im Dateinamen

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. Drücken Sie nach dem Einfügen des Codes in das Modul F5 Schlüssel zum Ausführen dieses Codes und a Speichern unter Fenster wird mit dem aktuellen Datum automatisch in das angezeigt Dateiname Textfeld, siehe Screenshot:

4. Und dann müssen Sie nur noch Ihren eigenen Dateinamen eingeben, siehe Screenshot: