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. "Сохранить как" в туже папку с тем же именем, в другой версии»
textual
Листинг программы
Sub SaveAs(ByVal FileName As String, Optional ByVal Options As StructSaveAsOptions = Nothing)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д