Cum se salvează documentul Word cu data curentă în numele fișierului?

Dacă trebuie să adăugați data curentă în numele fișierului atunci când salvați un document Word, cum ați putea face față acestei sarcini în fișierul Word?

Salvați un document Word cu data curentă în numele fișierului cu cod VBA

---

Salvați un document Word cu data curentă în numele fișierului cu cod VBA

Pentru a adăuga automat data curentă în numele fișierului atunci când salvați documentul Word, urmați pașii următori:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis:

Cod VBA: Salvați un document Word cu data curentă în numele fișierului

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. După lipirea codului în modul, apăsați F5 tasta pentru a rula acest cod și a Salvare ca fereastra este afișată cu data curentă automat în Nume de fișier casetă text, vezi captura de ecran:

4. Apoi, trebuie doar să tastați propriul nume de fișier așa cum aveți nevoie, consultați captura de ecran: