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

Андерсон

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

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

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Не пойму сути проблемы. Лень одну дополнительную кнопку при сохранении нажать?
Тогда макрос в одну строку и повесить на новую волшебную кнопку
 

Андерсон

Участник
Топикстартер
Сообщения
36
Реакции
0
Не пойму сути проблемы. Лень одну дополнительную кнопку при сохранении нажать?
Тогда макрос в одну строку и повесить на новую волшебную кнопку

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

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

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
По этому то и спрашивал - может у кого есть?
Там макрос в одну строку, причем, по-моему, автозаписывается
Просто меня терзают смутные сомнения что вам придется в рамках данной темы ускоренный курс автоматизации читать. Или вы не тигра? 'hmmm'
 

Андерсон

Участник
Топикстартер
Сообщения
36
Реакции
0
Там макрос в одну строку, причем, по-моему, автозаписывается

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


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

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

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Я просто пытаюсь понять, насколько имеет смысл вообще становиться на этот тернистый путь?
К сожалению макросы никогда не писал :( В сети искал - не нашел подобных.
Ладно начнем с начала. Вот так сделайте
116760
 

dastin

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

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

Андерсон

Участник
Топикстартер
Сообщения
36
Реакции
0
Уже пытался записать, может что-то неправильно делаю, но он то ли не работает, то ли ручки кривые ;]]

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

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

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Ок пропустим стадию записи, я ее уже сделал за вас
Заходите сразу в редактор макросов и вбейте туда такой текст
 
Последнее редактирование:

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Код:
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
 
Последнее редактирование:

Андерсон

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

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

Андерсон

Участник
Топикстартер
Сообщения
36
Реакции
0
Код:
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_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Прекрасно!
Как на кнопку повесить макрос разобрались?
 

Андерсон

Участник
Топикстартер
Сообщения
36
Реакции
0
Код:
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_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Попробовал - открывается окно сохранения, но по умолчанию версия 20 стоит всё равно.
Или это только часть кода?
В смысле? При запуске макроса никакого окна не должно появляться вообще - он молча сохраняет текущий документ в 12 версию
 

Андерсон

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

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

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Странно, видимо от версии зависит, у меня в X6 нет
Поэтому я и хотел изначально идти длинным путем с автозаписью, чтобы вы на своем кореле макрос записали
Впрочем, вас же вроде вариант с woxxomовским макросом устраивает?
 

Андерсон

Участник
Топикстартер
Сообщения
36
Реакции
0
Странно, видимо от версии зависит, у меня в X6 нет
Поэтому я и хотел изначально идти длинным путем с автозаписью, чтобы вы на своем кореле макрос записали
Впрочем, вас же вроде вариант с woxxomовским макросом устраивает?
Ну, кроде - да :) Потестим, покапаемся ещё, может что изменим под себя :)
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
А! Понял суть проблемы
Вы наверное запускаете макрос на новом (несохраненном) файле?
Как минимум раз сохранить надо