Hur sparar jag Word-dokument med aktuellt datum i filnamn?

Om du behöver lägga till det aktuella datumet i filnamnet automatiskt när du sparar ett Word-dokument, hur kan du hantera den här uppgiften i Word-fil?

Spara ett Word-dokument med aktuellt datum i filnamn med VBA-kod

---

Spara ett Word-dokument med aktuellt datum i filnamn med VBA-kod

För att automatiskt lägga till det aktuella datumet i filnamnet när du sparar Word-dokumentet, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Och klicka sedan på Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen:

VBA-kod: Spara ett Word-dokument med aktuellt datum i filnamn

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 klistrat in koden i modulen trycker du på F5 nyckel för att köra den här koden och en Spara som fönstret visas med det aktuella datumet automatiskt i Filnamn textruta, se skärmdump:

4. Och sedan behöver du bara skriva in ditt eget filnamn som du behöver, se skärmdump: