Word 2007: сохранить копию документа перед выполнением макроса

[lapin9126]

Здравствуйте, помогите с макросом, который сохраняет копию файла с именем открытого документа. Файл из папки "анализ" перед применением макроса надо скопировать в папку "исходники". Заранее благодарен за любую помощь. Во вложении папка с исходными файлами. Имя файла каждый раз меняется.

[вложение удалено администратором]

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

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

[lapin9126]

Большое спасибо.