Wie speichert man ein Word-Dokument mit dem aktuellen Datum im Dateinamen?
Author: Xiaoyang Last Modified: 2025-05-28
Wenn Sie beim Speichern eines Word-Dokuments automatisch das aktuelle Datum in den Dateinamen einfügen müssen, wie könnten Sie diese Aufgabe in einer Word-Datei bewältigen?
Speichern eines Word-Dokuments mit dem aktuellen Datum im Dateinamen mithilfe von VBA-Code
Speichern eines Word-Dokuments mit dem aktuellen Datum im Dateinamen mithilfe von VBA-Code
Um beim Speichern des Word-Dokuments das aktuelle Datum automatisch in den Dateinamen einzufügen, gehen Sie bitte wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie anschließend auf Einfügen > Modul, kopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein:
VBA-Code: Speichern eines Word-Dokuments 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. Nachdem Sie den Code in das Modul eingefügt haben, drücken Sie die F5-Taste, um diesen Code auszuführen. Ein Fenster „Speichern unter“ wird angezeigt, wobei das aktuelle Datum automatisch in das Textfeld Dateiname eingefügt wird, siehe Screenshot:
4. Geben Sie dann einfach Ihren eigenen Dateinamen ein, wie Sie es benötigen, siehe Screenshot:
Erledigen Sie mehr in weniger Zeit mit KI-optimierten Kutools für Word
Kutools für Word ist nicht nur eine Sammlung von Werkzeugen – es ist eine intelligente Lösung, die entwickelt wurde, um Ihre Produktivität zu steigern. Mit KI-gestützten Funktionen und den wichtigsten Features hilft Ihnen Kutools, mehr in weniger Zeit zu erreichen:
- Fassen Sie Inhalte zusammen, schreiben Sie sie um, verfassen Sie neue Texte und übersetzen Sie sie sofort.
- Texte in Echtzeit korrekturlesen mit Vorschlägen zur Grammatik, Interpunktion und zum Stil, während Sie schreiben.
- Inhalte umformulieren und übersetzen, ohne das Layout, den Stil oder die Struktur zu verändern.
- Übersetzen Sie Ihre Inhalte mühelos in über 40 Sprachen und erweitern Sie so Ihren globalen Einfluss.
- Erhalten Sie sofortige Hilfe und intelligente Einblicke basierend auf dem Inhalt Ihres aktuellen Dokuments.
- Fragen Sie, wie Sie eine Aufgabe ausführen – wie das Entfernen von Abschnittsumbrüchen – und die KI wird Sie anleiten oder es für Sie erledigen.
- Schwärzen Sie sensible oder vertrauliche Informationen innerhalb von Sekunden, um absolute Privatsphäre zu gewährleisten.
- Alle Werkzeuge arbeiten nahtlos innerhalb von Word und sind immer griffbereit.
- Dokumente mühelos erstellen, verfeinern, übersetzen, zusammenfassen und schützen.
- Grammatik, Klarheit und Tonfall in Echtzeit verbessern, während Sie schreiben.
- Inhalte umformulieren und übersetzen, ohne Änderungen am Layout oder der Formatierung vorzunehmen.
- Fragen Sie, wie Sie eine Aufgabe ausführen – wie das Entfernen von Abschnittsumbrüchen – und die KI wird Sie anleiten oder es für Sie erledigen.
- Alle Werkzeuge arbeiten nahtlos innerhalb von Word und sind immer griffbereit.
Erfahren Sie mehr über Kutools für Word Jetzt herunterladen
Beste Büroproduktivitätswerkzeuge
Kutools für Word - 100+ Werkzeuge für Word
