POWERCLIP.RU :: Форум

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

Wed, 4 Dec 2019 14:39:14 +0300

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

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 году. Это тот, что в цитате.
Вопрос? В чем может быть причина? Догадываюсь что не хватает какой-то библиотеки. Только какой?
Кто может помочь советом буду благодарен.

Не выводит имя открытого документа [by NemoSUN]

Mon, 19 Sep 2016 12:11:39 +0300

Corel VBA:: Не выводит имя открытого документа
Пишу скрипт в Кореле (X6, 64bit):
Sub DocName()
MsgBox ActiveDocument.Name
End Sub

В окошке выводит Untitled-1, хотя у меня открыт документ с другим именем.

Пробую так:
Sub DocName()
MsgBox CreateObject("Scripting.FileSystemObject".GetBaseName(ActiveDocument.Name)
End Sub

Всё равно выводит Untitled

Re: Color Converter [by cherednuk]

Mon, 8 Dec 2014 16:01:35 +0300

Corel VBA:: Color Converter
файл PowerclipRU.zip не качается

Re: Площадь и периметр [by Ander_OS]

Wed, 27 Nov 2013 17:13:24 +0400

Corel VBA:: Площадь и периметр
Спасибо! Юзаю.

Re: Разметка под люверсы (круги через "равное" растояние по периметру) [by cheese's]

Sun, 19 May 2013 10:53:13 +0400

Corel VBA:: Разметка под люверсы (круги через "равное" растояние по периметру)
ulugma, спасибо

Перевод из 16-й в 13-ую версию [by bojarynia]

Mon, 22 Apr 2013 15:42:56 +0400

Corel VBA:: Перевод из 16-й в 13-ую версию
Уважаемые! Нид хелп!
Надо перевести 16-ый в олдскул: 12 или 13-ую версию.
Срочно. Кто поможет старушке?

Все спасибо за помощь. Теперь уже не надо!!

Re: COrelDRAW com и php [by xm]

Mon, 13 Aug 2012 02:09:00 +0400

Corel VBA:: COrelDRAW com и php
о. появился ))

Re: кто-бы смог доработать до ума макрос? [by ManYacK]

Thu, 19 Jul 2012 13:16:06 +0400

Corel VBA:: кто-бы смог доработать до ума макрос?
Господа, оказывается мой макрос работает только в 13-м кореле...

А теперь я решил переехать в X6.
И надежный макрос, который верой и правдой служил мне долгие годы не пашет.

Помогите пожалуйста, как заставить действовать в 16-к кореле?
Очень полезная штучка, можно сказать жизненно необходимый... количество дисконток пронумерованных им уже давно за несколько сот тысяч перевалило... трудно представить что-бы мне пришлось пережить - делай я все вручную поштучно.

А если ему сделать активацию по кнопочке - так это будет ваще просто замечательно

Нужен макрос для CORELDRAW 11 для автоматизации процесса [by ]

Wed, 22 Feb 2012 22:30:17 +0400

Corel VBA:: Нужен макрос для CORELDRAW 11 для автоматизации процесса
Нужен макрос для CORELDRAW 11 для автоматизации процесса

Re: Помогите с FLASH [by Powereye]

Thu, 2 Feb 2012 19:23:56 +0400

Corel VBA:: Помогите с FLASH
Можно и средствами флэша сделать нежатое видео, а потом Canopus procoder в любой формат сожмет. Можно сделать средствами Флэша секвенцию PNG и ее вставить в Premiere. Ну и наконец сам Premiere sc4 понимает формат swf.