Как сохранить документ Word с текущей датой в имени файла?

Если вам нужно автоматически добавить текущую дату в имя файла при сохранении документа Word, как вы могли бы справиться с этой задачей в файле Word?

Сохраните документ Word с текущей датой в имени файла с кодом VBA

---

Сохраните документ Word с текущей датой в имени файла с кодом VBA

Чтобы автоматически добавлять текущую дату в имя файла при сохранении документа Word, выполните следующие действия:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. А затем нажмите Вставить > Модули, скопируйте и вставьте приведенный ниже код в открытый пустой модуль:

Код VBA: сохранить документ Word с текущей датой в имени файла

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. После вставки кода в модуль нажмите F5 ключ для запуска этого кода и Сохранить как окно отображается с текущей датой автоматически в Имя файла текстовое поле, см. снимок экрана:

4. А затем вам просто нужно ввести собственное имя файла, как вам нужно, см. Снимок экрана: