Наверное что-то вроде этого имеется ввиду?
Код |
---|
Sub СохранитьСУникальнымИменем() Dim ИмяФайла As String ИмяФайла = "Путь\к\вашей\папке\" & Format(Now, "dd-mm-yyyy_hh-mm-ss") & ".docx" ActiveDocument.SaveAs ИмяФайла End Sub |