Sub Saving()
MkDir ActiveDocument.Path & "\6.0"
ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\6.0\" & ActiveDocument.Name, FileFormat:=FileConverters("MSWord6Exp").SaveFormat
End Sub
В VBA Word создание папки и сохранение в ее активного документа
Добрый день Уважаемые!
Есть проблемка которую пока сам не могу решить ( чайник, только начал изучение VBA)
Есть необходимость в Ворде, активный документ сохранить в новой папке (созданой заново или если она есть, то просто сохранить туда активный документ в формате ворд 6.0)
Место для папки - новая папка( доп. с именем 6.0) в
той директории где находился активный документ)
С сохранением в Ворд 6.0 разобрался, а вот как сделать что бы файл помещался в папку ( которую еще и необходимо создать ... не как не получается.
Есть проблемка которую пока сам не могу решить ( чайник, только начал изучение VBA)
Есть необходимость в Ворде, активный документ сохранить в новой папке (созданой заново или если она есть, то просто сохранить туда активный документ в формате ворд 6.0)
Место для папки - новая папка( доп. с именем 6.0) в
той директории где находился активный документ)
С сохранением в Ворд 6.0 разобрался, а вот как сделать что бы файл помещался в папку ( которую еще и необходимо создать ... не как не получается.
Цитата:
Originally posted by Bodgo
Добрый день Уважаемые!
Есть проблемка которую пока сам не могу решить ( чайник, только начал изучение VBA)
Есть необходимость в Ворде, активный документ сохранить в новой папке (созданой заново или если она есть, то просто сохранить туда активный документ в формате ворд 6.0)
Место для папки - новая папка( доп. с именем 6.0) в
той директории где находился активный документ)
С сохранением в Ворд 6.0 разобрался, а вот как сделать что бы файл помещался в папку ( которую еще и необходимо создать ... не как не получается.
Добрый день Уважаемые!
Есть проблемка которую пока сам не могу решить ( чайник, только начал изучение VBA)
Есть необходимость в Ворде, активный документ сохранить в новой папке (созданой заново или если она есть, то просто сохранить туда активный документ в формате ворд 6.0)
Место для папки - новая папка( доп. с именем 6.0) в
той директории где находился активный документ)
С сохранением в Ворд 6.0 разобрался, а вот как сделать что бы файл помещался в папку ( которую еще и необходимо создать ... не как не получается.
Код:
Большушее спасибо !!!
Очень рад, что есть люди которые могут помочь...
ps:
МАКРОС РАБОТАЕТ!!!, но.. вот уж это вечное но!!
Прошу прощение, но задача была поставлена не полностью ( а если точно не правильно)
В папке может быть несколько документов Ворд
Их нужно сохранить в подпапке в формате Ворд6.0
Первый сохраняет все ОК!
А потом, и это понятно, не дает выполнить макрос, т.к. нет возможности создать папку котрая уже есть.
И на закуску, а может есть возможность как то
в документе Ворд макросом изменять текст ВордАрт,
в простой текст?
из области фантастики, наверное.
Очень рад, что есть люди которые могут помочь...
ps:
МАКРОС РАБОТАЕТ!!!, но.. вот уж это вечное но!!
Прошу прощение, но задача была поставлена не полностью ( а если точно не правильно)
В папке может быть несколько документов Ворд
Их нужно сохранить в подпапке в формате Ворд6.0
Первый сохраняет все ОК!
А потом, и это понятно, не дает выполнить макрос, т.к. нет возможности создать папку котрая уже есть.
И на закуску, а может есть возможность как то
в документе Ворд макросом изменять текст ВордАрт,
в простой текст?
из области фантастики, наверное.
Чтобы не возникала ошибка - вставь первой строчкой обработчик ошибок:
Код:
Sub Saving()
On Error Resume Next
MkDir ActiveDocument.Path & "\6.0"
ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\6.0\" & ActiveDocument.Name, FileFormat:=FileConverters("MSWord6Exp").SaveFormat
End Sub
On Error Resume Next
MkDir ActiveDocument.Path & "\6.0"
ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\6.0\" & ActiveDocument.Name, FileFormat:=FileConverters("MSWord6Exp").SaveFormat
End Sub