|
|
Регистрация | Пригласить друга | Все альбомы | Файловый архив | Справка | Сообщество | Календарь | Сообщения за день | Поиск |
|
Опции темы |
24.07.2018, 12:18 | #1 |
Местный
Регистрация: 24.08.2016
Адрес: Украина
Сообщений: 1,161
Репутация: 52
|
CorelDraw автоматизация действий макроса
Острая необходимость разобраться сейчас. Импоптирую пдф файл в корел. Есть 500 страниц. Задача на каждой странице выделить все слоя, сгруппировать, сделать выравнивание по центру. Записал действия. Воспроизводится только для текущей страницы. Т.е. если я руками переключаю мтраницу и запускаю макрос - все работает правильно. Пробовал залупить это дело.... что-то неполучается. Кто нибудь может подсказать как это сделать? Спасибо. |
24.07.2018, 12:27 | #2 |
Местный
Регистрация: 04.02.2010
Адрес: Нск
Сообщений: 3,145
Репутация: 375
|
Re: CorelDraw автоматизация действий макроса
Sub Zalupit()
Dim p As Page ' и другие ваши переменные ActiveDocument.Pages(1).Activate ' активируем первую страницу For p =1 To ActiveDocument.Pages.Count ' с 1 страницы по последнюю в документе ... ' тут ваш код Next End Sub как-то так или так ещё For Each p in ActiveDocument .... Next Page Последний раз редактировалось dastin; 24.07.2018 в 12:36.. |
24.07.2018, 12:32 | #3 |
Местный
Регистрация: 24.08.2016
Адрес: Украина
Сообщений: 1,161
Репутация: 52
|
Re: CorelDraw автоматизация действий макроса
Пасибо.... проверю.... попробую разобраться
|
24.07.2018, 12:58 | #4 | |
Местный
Регистрация: 27.05.2009
Адрес: Казахстан
Сообщений: 5,973
Репутация: 114
|
Re: CorelDraw автоматизация действий макроса
Что такое Zalupit?
Простите, вопрос не по теме, а зачем в колер запихивать 500 страниц из пдф-файла? Цитата:
Вроде можно просто enter нажать? Последний раз редактировалось zeppelin; 24.07.2018 в 13:01.. |
|
24.07.2018, 13:13 | #5 |
Местный
Регистрация: 04.02.2010
Адрес: Нск
Сообщений: 3,145
Репутация: 375
|
Re: CorelDraw автоматизация действий макроса
что хотелось ... я понимаю, что имелось в виду loop ... но я и написал на латинице
не мешайте ... пусть человек разбирается ... набивает шишки ... это опыт - сын ошибок трудных |
24.07.2018, 13:21 | #6 | |
Местный
Регистрация: 24.08.2016
Адрес: Украина
Сообщений: 1,161
Репутация: 52
|
Re: CorelDraw автоматизация действий макроса
zeppelin, Залупить - это за-loop-ить. Loop(ы) используется в программировании с целью "повторения" определённых команд, например, в данном случае, страницы - это Array (или массив), действия выполняются одинаковые, поэтому создаётся переменная i = 1 (номер страницы), считывается последний элемент в массиве, например 500 и запускается цикл в 500 раз, где выполняется одни и те же действия.
Импортирую PDF-ку с картами и штрих-кодами в шаблон с метками под тигельный вырубщик. Импортируется слегка со сдвигом. Поэтому нужно подобрать все слоя, сгруппироват их и выровнять по центру. Цитата:
Меня интересует конкретные действия: - Сгруппировать слои - выровнять по центру (горизонталь/вертикаль). - Повторить всё тоже самое на 500 страницах. Последний раз редактировалось hazartilirot; 24.07.2018 в 13:23.. |
|
24.07.2018, 13:26 | #7 |
Местный
Регистрация: 04.02.2010
Адрес: Нск
Сообщений: 3,145
Репутация: 375
|
Re: CorelDraw автоматизация действий макроса
это можно в акробате сразу сделать - сохранив его в версии 1.3/1.4 - в них нет поддержки слоёв - все сливается в один ... глядишь Корелу полегче будет
если сдвиг одинаковый - может проще макет резки сдвинуть один раз ... Всё. Молчу. Молчу |
24.07.2018, 13:29 | #8 | |||
Местный
Регистрация: 27.05.2009
Адрес: Казахстан
Сообщений: 5,973
Репутация: 114
|
Re: CorelDraw автоматизация действий макроса
Цитата:
Цитата:
Цитата:
то команда "Импорт",потом когда появляется символ уголка, нажимаете Enter и всё. ок |
|||
24.07.2018, 21:06 | #9 |
Местный
Регистрация: 24.05.2009
Адрес: Черкесск
Сообщений: 3,733
Репутация: 153
|
Re: CorelDraw автоматизация действий макроса
|
24.07.2018, 21:26 | #10 |
Местный
Регистрация: 24.08.2016
Адрес: Украина
Сообщений: 1,161
Репутация: 52
|
Re: CorelDraw автоматизация действий макроса
Всем спасибо, сделал как и хотел.... чуть чуть пришлось покапаться....
На всё про всё ушло пару минут..... Если кому-то пригодится: Код:
Sub TemporaryMacro() Dim s1 As Shape For p = 1 To ActiveDocument.Pages.Count ActiveDocument.Pages(p).Activate ActivePage.Shapes.All.CreateSelection Set s1 = ActiveSelection.Group s1.AlignAndDistribute 3, 3, 1, 0, False, 2 Next p End Sub Печатать хочу с корела. |
|
25.07.2018, 08:50 | #11 |
Местный
Регистрация: 25.01.2012
Адрес: Моск. обл.
Сообщений: 1,248
Репутация: 40
|
Re: CorelDraw автоматизация действий макроса
А вроде в новых корелах при импорте есть чекбокс свести все слои в один?
|
25.07.2018, 09:22 | #12 |
Местный
Регистрация: 24.08.2016
Адрес: Украина
Сообщений: 1,161
Репутация: 52
|
Re: CorelDraw автоматизация действий макроса
Vlad24, 2017 версия
Даже если и так, у меня шаблон под метки 91х57.3 в кореловском файле. Когда открываю PDF-кий файл то, 91х57.3, а вот, когда импортирую его в корел 90,664х57,15 С одной стороны, это небольшая разница, с другой, не хочу геморроя при сведении лица/оборота. У нас уже всё отстроено и лучше придерживаться этих размеров |
25.07.2018, 09:27 | #13 |
Местный
Регистрация: 04.02.2010
Адрес: Нск
Сообщений: 3,145
Репутация: 375
|
Re: CorelDraw автоматизация действий макроса
|
|
"Форум индустрии цифровой печати" 2008-2023 Все вопросы по сотрудничеству: Электропочта: info@trade-print.ru Москва, Печатников пер. |