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)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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