Re: Огромная коллекция макросов для Corel12/X3

Написал Ander_OS в 04/12/2019 14:39:14

Цитата:
Ander_OS пишет:
Нацарапал простенькую. Не дождался профессиональную

Private Sub ScrollScreen_OS() Dim Left, Top, Right, Bottom As Double

Left = 25 Top = ActivePage.SizeWidth * 25.4 / 17.7 Right = ((ActivePage.SizeWidth * 25.4 - 250) / 11.54) - 2 Bottom = -1

ActiveDocument.ActiveWindow.ActiveView.ToFitArea Left, Top, Right, Bottom ActiveDocument.ActiveWindow.Refresh

End Sub


Друзья доброго времени суток!

Помогите разобраться с проблемой.
Рабочий 15 Корел при открытии какого то файла рухнул. Перестал сохранять файлы. Он лицензионный но тех поддержкой уже не может пользоваться. Хотя помочь пытались.
В результате Пришлось установить 10 винд.
Корел потихоньку худо бедно заработал, но перестал понимать некоторые скрипты. Один из низ написанный еще в 11 году. Это тот, что в цитате.
Вопрос? В чем может быть причина? Догадываюсь что не хватает какой-то библиотеки. Только какой?
Кто может помочь советом буду благодарен.

Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=113252

Rambler's Top100