корел_12 в 9

  • Автор темы Автор темы pavel_t
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.

pavel_t

Топикстартер
12 лет на форуме
Сообщения
42
Реакции
2
Есть ли настройка, чтобы при работе в 12 кореле файлы по умолчанию сохранялись в 9 версию?
 
Ответ: корел_12 в 9

щас попрошу нашего спеца по макросам..
 
Ответ: корел_12 в 9

pavel_t сказал(а):
Есть ли настройка, чтобы при работе в 12 кореле файлы по умолчанию сохранялись в 9 версию?
А, если в 12-м применили какие-нибудь эффекты (которых нет в 9-й), например к векторным объектам и сохранив его в 9-ю версию и закрыв файл Вы конечно же лишитесь в дальнейшем их редактировать. Всё будет безжалостно разбито на отдельные векторные кусочки. Оно Вам надо?
 
Ответ: корел_12 в 9

нет, наверное, но я особо не запариваюсь с эффектами.
просто хочу протестировать 12-й, а вся контора сидит в 9-м, если я их смогу убедить, то пересядем в него все
 
Ответ: корел_12 в 9

Код:
'//////////////////////////////////////////////
Rem     Сохраняет файлы в более ранних версиях.
Rem     По умолчанию настроен на 11 версию.
Rem     Изменения версий можно вносить путем замены цифры в строке .Version = cdrVersion11
Rem     Макрос можно зацепить на горячии клавиши Ctr+s и посадить на стандартную иконку сохранения
Rem     (с)Stepanov Alexandr
Rem     3 февраля 2005 года.
'//////////////////////////////////////////////
Sub temp()
Dim SaveOptions As StructSaveAsOptions
    Set SaveOptions = New StructSaveAsOptions
    With SaveOptions
        .Filter = cdrCDR
        .IncludeCMXData = False
        .Range = cdrAllPages
        .EmbedICCProfile = True
        .ThumbnailSize = cdr10KColorThumbnail
        .Version = cdrVersion11
    End With
Dim n As String
n = ActiveDocument.FullFileName
If n = "" Then ActiveDocument.Save
ActiveDocument.SaveAs n, SaveOptions
Rem ActiveDocument.Close
End Sub
 
Ответ: корел_12 в 9

Чтоб после каждого сохранения не закрывался документ :)
Я распечатываю после сохранения.
Конечно, можно убрать Rem.
 
Статус
Закрыто для дальнейших ответов.