Здравствуйте, помогите с макросом, который сохраняет копию файла с именем открытого документа. Файл из папки "анализ" перед применением макроса надо скопировать в папку "исходники". Заранее благодарен за любую помощь. Во вложении папка с исходными файлами. Имя файла каждый раз меняется.
[вложение удалено администратором]
Sub Макрос1()
' На время написания макроса для удобства подключите библиотеку:
' Tools - References... - Windows Script Host Object Library.
' После написания макроса можно отключить библиотеку, заменив текст после "As" на "Object":
' Dim objFSO As Object
Dim objFSO As IWshRuntimeLibrary.FileSystemObject
'1. Создание объекта для работы с папками и файлами.
Set objFSO = CreateObject(Class:="Scripting.FileSystemObject")
'2. Копирование активного ворд-файла.
' OverWriteFiles:=True - если в папке "Исходнике" уже есть такой файл, то он будет удалён.
objFSO.CopyFile Source:=ActiveDocument.FullName, _
Destination:=ActiveDocument.Path & "\" & "Исходники" & "\" & ActiveDocument.Name, _
OverWriteFiles:=True
End Sub
Большое спасибо.