MS Word(2010) Сохранить файл FSO - VBA

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, пишу макрос у которого в конце выполняется сохранение исходного файла с добавлением к имени (копия) в папку "обработано" в этой же директории. Но что-то пошло не так. Помогите разобраться. P.S. В Path & "" & "обработано" & "" почему-то исчезает \

Решение задачи: «MS Word(2010) Сохранить файл FSO»

textual
Листинг программы
Sub SaveAsDoc()
    Dim FSO As Object
    Dim saYt As String
    Set FSO = CreateObject(Class:="Scripting.FileSystemObject")
    saYt = "(копия)"  'добавление к имени активного файла  убрал лишнюю "
    oldName = FSO.GetBaseName(ActiveDocument) 'имя файла
    RaSh = FSO.getextensionname(ActiveDocument) ' расширение файла
    ds = ActiveDocument.Path & "СЛЕШ" & "обработано" & "СЛЕШ" & oldName & saYt & "." & RaSh
    FSO.CopyFile Source:=ActiveDocument.FullName, Destination:=ds, OverWriteFiles:=False
    
End Sub

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы