Hoe een Word-document met de huidige datum in de bestandsnaam opslaan?

Als u de huidige datum automatisch in de bestandsnaam moet toevoegen wanneer u een Word-document opslaat, hoe kunt u dan omgaan met deze taak in een Word-bestand?

Sla een Word-document op met de huidige datum in de bestandsnaam met VBA-code

---

Sla een Word-document op met de huidige datum in de bestandsnaam met VBA-code

Voer de volgende stappen uit om automatisch de huidige datum aan de bestandsnaam toe te voegen bij het opslaan van het Word-document:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module:

VBA-code: sla een Word-document op met de huidige datum in de bestandsnaam

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. Druk op nadat u de code in de module hebt geplakt F5 sleutel om deze code uit te voeren, en een Opslaan als venster wordt weergegeven met de huidige datum automatisch in het Bestandsnaam tekstvak, zie screenshot:

4. En dan hoeft u alleen maar uw eigen bestandsnaam in te voeren zoals u nodig hebt, zie screenshot: