Corel Draw. "Сохранить как" в туже папку с тем же именем, в другой версии - VBA

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

Здравствуйте. Часто приходится пересохранять файлы .cdr из 17 в 13 версию. С помощью макродекодера записал код и откорректировал, чтобы он пересохранял в туже папку и стем же именем, где и лежит пересохраняемый файл. Но код не работает Sub Macro3() ' Recorded 20.04.2017 Dim SaveOptions As StructSaveAsOptions Set SaveOptions = CreateStructSaveAsOptions With SaveOptions .EmbedVBAProject = True .Filter = cdrCDR .IncludeCMXData = False .Range = cdrAllPages .EmbedICCProfile = True .Version = cdrVersion13 .KeepAppearance = True End With ActiveDocument.SaveAsFile Name: ActiveDocument.Path , SaveOptions End Sub В VBA я "чайник", поэтому обращаюсь за помощью.

Код к задаче: «Corel Draw. "Сохранить как" в туже папку с тем же именем, в другой версии - VBA»

textual
Sub SaveAs(ByVal FileName As String, Optional ByVal Options As StructSaveAsOptions = Nothing)

13   голосов, оценка 4.308 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы
Для поиска решения или похожих решений вы можете воспользоваться "Поиском по сайту" или "Поиском по разделу"
Поиск по сайту