[CDR X5-X8] CorelSCRIPT и X8

[kuterma2]

Парни,подскажите пожалуйста...
Работаю в X5 уж давно - полностью настроил его под себя, макросы подобрал - без них как без рук. А тут - пора, думаю, всё-таки заставлять себя пересаживаться на X8, а то совсем отстал от жизни...
Так вот...
Перестали работать макросы некоторые - выдают ошибку.

В частности вот эти:
WX tools - Size page to fit
SanM_Tools - SizePageToSelect

Они подгоняли размер страницы к выделенному объекту и выдавали диалог на сколько мм увеличить страницу... Очень нужная мне вещь...
Можно как-то подшаманить, чтоб работало в 18-м Кореле?...

 

[_MBK_]

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

Не по теме:
Еще далеко не пора

выдают ошибку

Какую?

 

[kuterma2]

Какую?

Вываливается в Microsoft Visual Basic
и
Подсвечивает жёлтым: Sub boostFinish(Optional ByVal endUndoGroup As Boolean = False, Optional ByVal doRedraw As Boolean = True)
и подсвечивает синим: CorelScript.

Sub boostFinish(Optional ByVal endUndoGroup As Boolean = False, Optional ByVal doRedraw As Boolean = True)
On Error Resume Next
ActiveDocument.PreserveSelection = True
ActiveDocument.RestoreSettings
EventsEnabled = True
Optimization = False
If endUndoGroup Then ActiveDocument.EndCommandGroup

If doRedraw Then
CorelScript.RedrawScreen
ActiveWindow.Refresh
Application.Refresh
End If
End Sub

 

[_MBK_]

Печальбеда!
CorelScript в последних версиях, как я понимаю, прекратили поддерживать
Попробуйте закомментировать (или убрать) строку
CorelScript.RedrawScreen

 

[kuterma2]

а в "SanM_Tools - SizePageToSelect выдаёт "Compile error шт hidden module: sToolsBoost"

 

[kuterma2]

Печальбеда!
CorelScript в последних версиях, как я понимаю, прекратили поддерживать
Попробуйте закомментировать (или убрать) строку
CorelScript.RedrawScreen

Вы знаете... помогло!!!
Спасибо большое. Буду остальные макросы проверять
(печальбеда - это плохо, я так понимаю?..)

 

[_MBK_]

SanM_Tools

Это к Санчесу - у него все модули под конкретные версии корела откомпилированы и отлажены

 

[lev]

Их объектной модели X7-X8 убран CorelSCRIPT, старым операторам подобраны аналоги, часто без изменения названия метода/свойства, но не всегда. Для начала попробуйте просто удалить "CorelSCRIPT", если не помогает, лезьте в хелп.
Например, "CorelScript.RedrawScreen", меняется на "Refresh".

 

[splxgf]

CorelScript уже давно был deprecated, так что его наконец выпилили.
А насчет второго нужно открыть sToolsBoost и глянуть что там не нравится.

 

[_MBK_]

А насчет второго нужно открыть sToolsBoost и глянуть что там не нравится.

У Санчеса весь код закрыт, причем нестандартно
Не выйдет

 

[splxgf]

Тут лишь вопрос желания Макросы с открытым кодом

 

[_MBK_]

Тут лишь вопрос желания Макросы с открытым кодом

CDRTools, насколько я помню, коммерческий и код на него Санчес не открывал

 

[splxgf]

Ну в любом случае если очень надо, то придется идти в слаку. Может будет выложена обновленная версия или предоставлена часть исходников.
Макрос простой и зависимостей там минимум, ну или ручками дописать нужный функционал тоже недолго.