[CDR 2017-2021] Версия при сохранении

[Андерсон]

Есть проблема - в организации несколько дизайнеров (2 версии Корела, Х8 и 2018, но не суть).
Когда макет готов и утверждён, то сохраняется всё в 12-й версии.
Один-два макета - не проблема, но часто их сотни/тысячи (объединять в один файл нельзя, из за Тех.Особ. производства). Как либо настроить сохранение в определенной версии по умолчанию не можем нигде найти, приходится каждый раз ручками делать т.к. Save as и Save всегда в версии в которой работаешь. Отнимает время и можно какие-то пропустить (человеческий фактор).

Разговаривал с ребятами из техподдержки Корела в РФ. Сказали что таких запросов/вопросов полно но разработчик с 14-й версии всё никак не сделает.
Может кто знает способ?

 

[_MBK_]

Не пойму сути проблемы. Лень одну дополнительную кнопку при сохранении нажать?
Тогда макрос в одну строку и повесить на новую волшебную кнопку

 

[Андерсон]

Не пойму сути проблемы. Лень одну дополнительную кнопку при сохранении нажать?
Тогда макрос в одну строку и повесить на новую волшебную кнопку

Когда макетов/файлов много - да, проблема. Уйма времени уходит и сбивает.

А вот про макрос - это интересно. По этому то и спрашивал - может у кого есть?

 

[_MBK_]

По этому то и спрашивал - может у кого есть?

Там макрос в одну строку, причем, по-моему, автозаписывается
Просто меня терзают смутные сомнения что вам придется в рамках данной темы ускоренный курс автоматизации читать. Или вы не тигра?

 

[Андерсон]

Там макрос в одну строку, причем, по-моему, автозаписывается

К сожалению макросы никогда не писал В сети искал - не нашел подобных.

Просто меня терзают смутные сомнения что вам придется в рамках данной теме ускоренный курс автоматизации читать. Или вы не тигра?

? Не понял вопроса

 

[_MBK_]

Я просто пытаюсь понять, насколько имеет смысл вообще становиться на этот тернистый путь?

К сожалению макросы никогда не писал В сети искал - не нашел подобных.

Ладно начнем с начала. Вот так сделайте

 

[dastin]

В сети искал - не нашел подобных

а искать лучше было у себя под носом рядом
в штатной поставке программы есть макрос File Convetor
c его помощью вы можете скопом пересохранить файлы в выбранную версию
для 12 версии - боюсь вам придется использовать макрос из версии Х8 - 2018 в 12 не способен

и далее всем дизайнерам установить бесплатный макрос
wOxxOm Save Old Version
один раз его настроив и повесив на кнопочку - 12 версия будет получаться автоматически

 

[Андерсон]

Уже пытался записать, может что-то неправильно делаю, но он то ли не работает, то ли ручки кривые

Если вы решили описывать поэтапно каждый шаг, то боюсь много скринов получится Спасибо конечно, но не могли бы текстом?

И у меня Corel 2018, интерфейс немного другой

 

[_MBK_]

Ок пропустим стадию записи, я ее уже сделал за вас
Заходите сразу в редактор макросов и вбейте туда такой текст

 

[_MBK_]

Sub SaveAs12()
    ' Recorded 21.03.2019
    Dim SaveOptions As StructSaveAsOptions
    Set SaveOptions = CreateStructSaveAsOptions
    With SaveOptions
        .EmbedVBAProject = False
        .Filter = cdrCDR
        .IncludeCMXData = False
        .Range = cdrAllPages
        .EmbedICCProfile = False
        .Version = cdrVersion12
    End With
    ActiveDocument.SaveAs ActiveDocument.FileName, SaveOptions
End Sub

 

[Андерсон]

а искать лучше было у себя под носом рядом
в штатной поставке программы есть макрос File Convetor
c его помощью вы можете скопом пересохранить файлы в выбранную версию
для 12 версии - боюсь вам придется использовать макрос из версии Х8 - 2018 в 12 не способен
Посмотреть вложение 116761
и далее всем дизайнерам установить бесплатный макрос
wOxxOm Save Old Version
один раз его настроив и повесив на кнопочку - 12 версия будет получаться автоматически

Отлично! Работает, исправил версию на 12 в коде, заработало

 

[Андерсон]

Sub SaveAs12()
    ' Recorded 21.03.2019
    Dim SaveOptions As StructSaveAsOptions
    Set SaveOptions = CreateStructSaveAsOptions
    With SaveOptions
        .EmbedVBAProject = False
        .Filter = cdrCDR
        .IncludeCMXData = False
        .Range = cdrAllPages
        .EmbedICCProfile = False
        .Version = cdrVersion12
    End With
    ActiveDocument.SaveAs ActiveDocument.FileName, SaveOptions
End Sub

Попробую, спасибо

 

[_MBK_]

Прекрасно!
Как на кнопку повесить макрос разобрались?

 

[Андерсон]

Sub SaveAs12()
    ' Recorded 21.03.2019
    Dim SaveOptions As StructSaveAsOptions
    Set SaveOptions = CreateStructSaveAsOptions
    With SaveOptions
        .EmbedVBAProject = False
        .Filter = cdrCDR
        .IncludeCMXData = False
        .Range = cdrAllPages
        .EmbedICCProfile = False
        .Version = cdrVersion12
    End With
    ActiveDocument.SaveAs ActiveDocument.FileName, SaveOptions
End Sub

Попробовал - открывается окно сохранения, но по умолчанию версия 20 стоит всё равно.
Или это только часть кода?

 

[_MBK_]

Попробовал - открывается окно сохранения, но по умолчанию версия 20 стоит всё равно.
Или это только часть кода?

В смысле? При запуске макроса никакого окна не должно появляться вообще - он молча сохраняет текущий документ в 12 версию

 

[Андерсон]

В смысле? При запуске макроса никакого окна не должно появляться вообще - он молча сохраняет текущий документ в 12 версию

Открываю нужный файл, запускаю макрос - вылетает окно "Сохранить как"

 

[_MBK_]

Странно, видимо от версии зависит, у меня в X6 нет
Поэтому я и хотел изначально идти длинным путем с автозаписью, чтобы вы на своем кореле макрос записали
Впрочем, вас же вроде вариант с woxxomовским макросом устраивает?

 

[Андерсон]

Странно, видимо от версии зависит, у меня в X6 нет
Поэтому я и хотел изначально идти длинным путем с автозаписью, чтобы вы на своем кореле макрос записали
Впрочем, вас же вроде вариант с woxxomовским макросом устраивает?

Ну, кроде - да Потестим, покапаемся ещё, может что изменим под себя

 

[_MBK_]

А! Понял суть проблемы
Вы наверное запускаете макрос на новом (несохраненном) файле?
Как минимум раз сохранить надо

 

[Андерсон]

А! Понял суть проблемы
Вы наверное запускаете макрос на новом (несохраненном) файле?
Как минимум раз сохранить надо

нет, файл готовый и пересохраненный уже не один раз