Word VBA Макросы: Как автоматически сохранить и закрыть файл, созданный с помощью шаблона dotm?

[Максим]

Имеется шаблон документа (dotm), при его открытии создаётся  "Документ 1".
В шаблон поместил макрос,  который формирует таблицу и делает слияние.

Как сделать эти задачи:?
1) автоматически закрыть "Документ1" после выполнения макроса;
2) сохранить "Документ1" в заданную папку с заданным именем + дата.

[Администратор]

Код, который нужно поместить в шаблон (dotm), в модуль "ThisDocument":

Код

Private Sub Document_New()

    Dim FN As String
   
    ' Запуск макроса, который формирует таблицу и делает слияние.
    Макрос1
   
    ' Отвязываем новый файл от текущего шаблона и привязываем к шаблону "Normal".
        ' Чтобы было как у всех новых файлов.
    ActiveDocument.AttachedTemplate = ""
   
    ' Сохранение этого файла.
    ' Запишите в переменную путь, по которому надо сохранить файл, и имя для нового файла.
    FN = "C:\Users\User\Desktop\Имя_файла_" & Date & ".docx"
    ' Сохранение файла.
    ActiveDocument.SaveAs2 FileName:=FN, FileFormat:=wdFormatXMLDocument
   
    ' Закрытие этого файла.
        ' SaveChanges:=False - иногда вроде ничего не делаешь, а предлагается сохранить,
        ' поэтому сделано на всякий случай, чтобы не было сообщения.
    ActiveDocument.Close SaveChanges:=False
   
    ' Сообщение, чтобы юзер понял, что событие завершило работу.
    MsgBox "Готово.", vbInformation
   
End Sub

Private Sub Макрос1()

End Sub

[свернуть]

[Максим]

огромное спасибо за помощь, за внимание и потраченное на меня время!!