Speichern eines Word-Dokuments mit dem aktuellen Datum im Dateinamen mithilfe von VBA-Code
Um beim Speichern des Word-Dokuments automatisch das aktuelle Datum in den Dateinamen einzufügen, führen Sie bitte die folgenden Schritte aus:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie anschließend auf Einfügen > Modul, und fügen Sie den folgenden Code 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 ihn auszuführen. Anschließend öffnet sich das Speichern unter-Fenster, wobei das aktuelle Datum automatisch in das Feld Dateiname eingefügt wird (siehe Screenshot):
4. Geben Sie anschließend einfach Ihren gewünschten Dateinamen ein (siehe Screenshot):
Mehr erreichen in kürzerer Zeit mit KI-gestütztem Kutools für Word
Kutools für Word ist weit mehr als nur eine Sammlung von Werkzeugen – es ist eine intelligente Lösung, speziell entwickelt, um Ihre Produktivität spürbar zu steigern. Mit KI-gestützten Funktionen und den wichtigsten Tools ermöglicht Ihnen Kutools, in kürzerer Zeit mehr zu erreichen:
Fassen Sie Inhalte prägnant zusammen, formulieren Sie sie neu, verfassen Sie originelle Texte und übersetzen Sie sofort.
Überprüfen Sie Ihre Texte in Echtzeit – mit intelligenten Vorschlägen zu Grammatik, Zeichensetzung und Stil, während Sie schreiben.
Formulieren und übersetzen Sie Inhalte neu, ohne Layout, Stil oder Struktur zu verändern.
Übersetzen Sie Ihre Inhalte mühelos in über 40 Sprachen und erweitern Sie so Ihre globale Reichweite.
Erhalten Sie sofortige Unterstützung und intelligente Einblicke basierend auf den Inhalten Ihres aktuellen Dokuments.
Fragen Sie einfach, wie eine Aufgabe – etwa das Entfernen eines Abschnittsumbruchs – durchgeführt wird, und die KI führt Sie Schritt für Schritt durch den Prozess oder erledigt sie direkt für Sie.
Schwärzen Sie sensible oder vertrauliche Informationen innerhalb von Sekunden – für absolute Privatsphäre.
Alle Werkzeuge funktionieren nahtlos in Word und sind jederzeit griffbereit.
Erstellen, verbessern, übersetzen und fassen Sie Dokumente mühelos zusammen – und sichern Sie sie ganz einfach.
Verbessern Sie Grammatik, Klarheit und Tonfall in Echtzeit – direkt beim Schreiben.
Formulieren und übersetzen Sie Inhalte neu, ohne Layout oder Formatierung zu verändern.
Fragen Sie einfach, wie eine Aufgabe – etwa das Entfernen eines Abschnittsumbruchs – durchgeführt wird, und die KI führt Sie Schritt für Schritt durch den Prozess oder erledigt sie direkt für Sie.
Alle Werkzeuge funktionieren nahtlos in Word und sind jederzeit griffbereit.
🌍Unterstützt über 40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!
