Имеется шаблон документа (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
огромное спасибо за помощь, за внимание и потраченное на меня время!!