Hvordan gemmes Word-dokument med den aktuelle dato i filnavnet?

Hvis du har brug for automatisk at tilføje den aktuelle dato i filnavnet, når du gemmer et Word-dokument, hvordan kan du håndtere denne opgave i Word-fil?

Gem et Word-dokument med den aktuelle dato i filnavnet med VBA-kode

---

Gem et Word-dokument med den aktuelle dato i filnavnet med VBA-kode

Hvis du automatisk vil tilføje den aktuelle dato til filnavnet, når du gemmer Word-dokumentet, skal du gøre følgende:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbne blanke modul:

VBA-kode: Gem et Word-dokument med den aktuelle dato i filnavnet

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. Når du har indsat koden i modulet, skal du trykke på F5 nøgle til at køre denne kode, og en Gem som vindue vises med den aktuelle dato automatisk i Filnavn tekstboks, se skærmbillede:

4. Og så skal du bare skrive dit eget filnavn, som du har brug for, se skærmbillede: