CorelDraw автоматизация действий макроса

[hazartilirot]

Приветствую.
Острая необходимость разобраться сейчас. Импоптирую пдф файл в корел. Есть 500 страниц. Задача на каждой странице выделить все слоя, сгруппировать, сделать выравнивание по центру.
Записал действия. Воспроизводится только для текущей страницы. Т.е. если я руками переключаю мтраницу и запускаю макрос - все работает правильно.

Пробовал залупить это дело.... что-то неполучается.

Кто нибудь может подсказать как это сделать? Спасибо.

[dastin]

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

[hazartilirot]

Пасибо.... проверю.... попробую разобраться

[zeppelin]

Сообщение от dastin

Sub Zalupit()...

Что такое Zalupit?

Сообщение от hazartilirot

...Импоптирую пдф файл в корел. Есть 500 страниц..

Простите, вопрос не по теме, а зачем в колер запихивать 500 страниц из пдф-файла?

Сообщение от hazartilirot

Задача на каждой странице выделить все слоя, сгруппировать, сделать выравнивание по центру...

Еще вопрос, а зачем писать макрос для центровки по листу?
Вроде можно просто enter нажать?

[dastin]

Сообщение от zeppelin

Что такое Zalupit?

Сообщение от hazartilirot

Пробовал залупить это дело.... что-то неполучается.

что хотелось ... я понимаю, что имелось в виду loop ... но я и написал на латинице

Сообщение от zeppelin

Простите, вопрос не по теме

Сообщение от zeppelin

Еще вопрос, а зачем

не мешайте ... пусть человек разбирается ... набивает шишки ... это опыт - сын ошибок трудных

[hazartilirot]

zeppelin, Залупить - это за-loop-ить. Loop(ы) используется в программировании с целью "повторения" определённых команд, например, в данном случае, страницы - это Array (или массив), действия выполняются одинаковые, поэтому создаётся переменная i = 1 (номер страницы), считывается последний элемент в массиве, например 500 и запускается цикл в 500 раз, где выполняется одни и те же действия.

Импортирую PDF-ку с картами и штрих-кодами в шаблон с метками под тигельный вырубщик. Импортируется слегка со сдвигом. Поэтому нужно подобрать все слоя, сгруппироват их и выровнять по центру.

Сообщение от zeppelin

Еще вопрос, а зачем писать макрос для центровки по листу?
Вроде можно просто enter нажать?

Можно подробнее?

Меня интересует конкретные действия:
- Сгруппировать слои
- выровнять по центру (горизонталь/вертикаль).
- Повторить всё тоже самое на 500 страницах.

[dastin]

Сообщение от hazartilirot

Поэтому нужно подобрать все слоя

это можно в акробате сразу сделать - сохранив его в версии 1.3/1.4 - в них нет поддержки слоёв - все сливается в один ... глядишь Корелу полегче будет

Сообщение от hazartilirot

Импортируется слегка со сдвигом.

если сдвиг одинаковый - может проще макет резки сдвинуть один раз ...
Всё. Молчу. Молчу

[zeppelin]

Сообщение от hazartilirot

...Залупить - это за-loop-ить. Loop(ы) используется в программировании ...

А-а-а, Семён Семёныч...

Сообщение от hazartilirot

Импортирую PDF-ку с картами и штрих-кодами в шаблон с метками под тигельный вырубщик...

А не проще в пдф слой с метками импортировать?

Сообщение от hazartilirot

...Можно подробнее?
Меня интересует конкретные действия:
- Сгруппировать слои
- выровнять по центру (горизонталь/вертикаль).
- Повторить всё тоже самое на 500 страницах.

Ну насчет сгруппировать наверное тут не получится. А так если только по центру,
то команда "Импорт",потом когда появляется символ уголка, нажимаете Enter и всё.

Сообщение от dastin

не мешайте ... пусть человек разбирается ... набивает шишки ... это опыт - сын ошибок трудных

ок

[Murik]

hazartilirot, в пдф всё по центру? если да, то не импортируй в корел, а открывай ПДФ корелом, должно открыться как в ПДФ. Шаблон с метками можно в этом файл кинуть на МастерПейдж.

[hazartilirot]

Всем спасибо, сделал как и хотел.... чуть чуть пришлось покапаться....

На всё про всё ушло пару минут.....

Если кому-то пригодится:

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

Печатать хочу с корела.

[Vlad24]

А вроде в новых корелах при импорте есть чекбокс свести все слои в один?

[hazartilirot]

Vlad24, 2017 версия



Даже если и так, у меня шаблон под метки 91х57.3 в кореловском файле. Когда открываю PDF-кий файл то, 91х57.3, а вот, когда импортирую его в корел
90,664х57,15

С одной стороны, это небольшая разница, с другой, не хочу геморроя при сведении лица/оборота. У нас уже всё отстроено и лучше придерживаться этих размеров

[dastin]

Сообщение от Vlad24

А вроде в новых корелах при импорте есть чекбокс

есть ...но выглядит он так "Maintain layers and pages" - т.е. слоёв И страниц ...
хорошо - допустим снимем - не будет слоёв И не будет страниц - 500 страниц на одну - это будет весело