Help! Раскладка в CorelDRAW Х3

Serrg_Shaman · 15.10.2012

Много уважаемые и всеми любимые Гуру CorelDRAW и VisualBasic.
У Вас просит помощи чайник и нуб в одном флаконе

Суть проблемы такова:
нужно правильно автоматизировать раскладку страниц ежедневника в CorelDRAW Х3 (версия 13.0.0.739).
Я сам недавно работаю с этой прогой, но записал несколько удачных макросов, но все же у меня не хватает опыта в программировании.
У меня получилось:
- импорт страниц ежедневника в нужном порядке;
- поворот на 180 градусов;
- разгрупировка всех объектов и удаление прямоугольника по краю страницы (нужен для выравнивания по центру и импорте в нужном месте раб. области)
Но при работе этих макросов с другими аналогичными файлами, постоянно ругается на ХЗЧ :((

.
Для примера прикрепил скрин раскладки.

xm · 15.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Serrg_Shaman сказал(а):
ругается на ХЗЧ

На что?

Skvoznyak · 15.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

почему не используете встроенный Imposition tool?

Serrg_Shaman · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

xm сказал(а):
На что?

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

Код:

ActiveDocument.MasterPage.GuidesLayer.Shapes(3).Delete
    ActiveDocument.MasterPage.GuidesLayer.Shapes(2).Delete
    ActiveDocument.MasterPage.GuidesLayer.Shapes(2).Delete
    ActiveDocument.MasterPage.GuidesLayer.Shapes(1).Delete
    Dim grp1 As ShapeRange
    Set grp1 = ActivePage.Shapes.All.UngroupEx
    Dim grp2 As ShapeRange
    Set grp2 = grp1.UngroupEx
    Dim grp3 As ShapeRange
    Set grp3 = grp2.UngroupEx
    grp3(951).Delete
    grp3(1067).Delete
    grp3(1177).Delete
[COLOR=#ff0000]    grp3(1542).Delete[/COLOR]
    grp3(1541).Delete
    grp3(1420).Delete
    grp3(1299).Delete
    grp3(1298).Delete
    Dim grp4 As ShapeRange
    Set grp4 = ActiveDocument.Pages(2).Shapes.All.UngroupEx
    Dim grp5 As ShapeRange
    Set grp5 = grp4.UngroupEx
    Dim grp6 As ShapeRange
    Set grp6 = grp5.UngroupEx
    Dim grp7 As ShapeRange
    Set grp7 = grp6.UngroupEx
    grp7(3865).Delete
    grp7(4230).Delete
    grp7(4107).Delete
    grp7(4108).Delete
    grp7(3986).Delete
    grp7(4351).Delete
    grp7(4350).Delete
    grp7(4109).Delete
    Dim grp8 As ShapeRange
    Set grp8 = ActiveDocument.Pages(3).Shapes.All.UngroupEx
    Dim grp9 As ShapeRange
    Set grp9 = grp8.UngroupEx
    Dim grp10 As ShapeRange
    Set grp10 = grp9.UngroupEx
    grp10(178).Delete
    grp10(519).Delete
    grp10(639).Delete
    grp10(1001).Delete
    grp10(398).Delete
    grp10(289).Delete
    grp10(880).Delete
    grp10(760).Delete
    Dim grp11 As ShapeRange
    Set grp11 = ActiveDocument.Pages(4).Shapes.All.UngroupEx
    Dim grp12 As ShapeRange
    Set grp12 = grp11.UngroupEx
    Dim grp13 As ShapeRange
    Set grp13 = grp12.UngroupEx
    grp13(183).Delete
    grp13(304).Delete
    grp13(645).Delete
    grp13(755).Delete
    grp13(425).Delete
    grp13(988).Delete
    grp13(867).Delete
    grp13(536).Delete

выделено красным, на какую комманду идет мат

Serrg_Shaman · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Skvoznyak сказал(а):
почему не используете встроенный Imposition tool?

что за зверь, повторюсь еще с CorelDRAW работаю от силы месяца 3-4

splxgf · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Serrg_Shaman сказал(а):
выделено красным, на какую комманду идет мат

Объясните зачем эти разгруппировки, тем более уровень вложенности может быть разный, с чем собственно говоря похоже и проблемы.

Serrg_Shaman · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

splxgf сказал(а):
Объясните зачем эти разгруппировки, тем более уровень вложенности может быть разный, с чем собственно говоря похоже и проблемы.

попытаюсь подробно написать:
есть макеты из 12 файлов (месяцев) в которых распределены дни в месяце.
- вставляю туда сетку (36 прямоугольников), для того что бы в дальнейшем можно было выровнять по центру, так как растояние между страницами при раскладке на А2 формат, на фальцовку разное, т.е. строго по макету
- группирую и сохраняю отдельными файлами каждое число месяца
- импортирую на шаблон (А2 формата) страницы, разгруппировываю все и удаляю красный прямоугольник с каждой страницы отдельно, далее группирую (что бы случайно не сдвинуть с места какой нибудь объект)
- поворачиваю на 180 градусов верхний ряд страниц
- вставляю колонтитулы (тут вообще мистика). есть шаблон колонтитулов (скрин прикреплен), записал макрос, запускаю его...он с***чь такая 'P:E'

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

Skvoznyak · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Serrg_Shaman сказал(а):
что за зверь, повторюсь еще с CorelDRAW работаю от силы месяца 3-4

File->Print, там закладка Layout, выбираем Imposition Layout из готовых для начала, потом редактируем под себя.

splxgf · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Смените подход к записи макросов, особенно удалению объектов. Либо придется осваивать Visual Basic.
Или в меню файл-печать нажмите просмотр. Слева второй инструмент, после стрелочки.

Serrg_Shaman · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Skvoznyak сказал(а):
File->Print, там закладка Layout, выбираем Imposition Layout из готовых для начала, потом редактируем под себя.

не пойдет, нужен файл для подготовки пластин на печать

Serrg_Shaman · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

splxgf сказал(а):
Смените подход к записи макросов, особенно удалению объектов. Либо придется осваивать Visual Basic.
Или в меню файл-печать нажмите просмотр. Слева второй инструмент, после стрелочки.

что вы имеете в виду под "сменой подхода к записи макросов"
пробовал, не могу настроить расстояние между страницами
кстати Adobe InDesign может решить мою проблему?

Skvoznyak · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Serrg_Shaman сказал(а):
не пойдет, нужен файл для подготовки пластин на печать

печатайте на принтер Adobe PDF, или просто в ps файл на худой конец

Serrg_Shaman · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Skvoznyak сказал(а):
печатайте на принтер Adobe PDF, или просто в ps файл на худой конец

проблема с настройкой расстояния между страницами, на изгибе расстояние меньше, чем на срезе (скрин 1-й пост)

Skvoznyak · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

там настраивается все, не поленитесь, попробуйте.

Serrg_Shaman · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Skvoznyak сказал(а):
там настраивается все, не поленитесь, попробуйте.

если вы имеете в виду "предварительный просмотр", тогда пробовал ни один раз, выставляет одинаковое расстояние между страницами

Skvoznyak · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

там можно выделить конкретный фальц и ввести расстояние только для него.

Serrg_Shaman · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

~~размер меняется для всех, если не сложно то опишите процедуру пожалуйста~~
спс уже разобрался, как настроить размер страницы

Serrg_Shaman · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

!! как через "предварительный просмотр", сохранить файл с расширением *.cdr !!

splxgf сказал(а):
Смените подход к записи макросов, особенно удалению объектов.

что вы имели в виду? какие еще есть вожможности записи макросов?

splxgf · 16.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Из просмотра можно сохранить PDF.
Нравится раскладывать макросами учите макросы, ну или хотя бы нужно понимать особенности такого метода.
Тыкается и удаляется красный квадратик. Как в следующий раз корел должен понять что вы хотите удалить именно его?

Serrg_Shaman · 18.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

splxgf сказал(а):
Из просмотра можно сохранить PDF.
Нравится раскладывать макросами учите макросы, ну или хотя бы нужно понимать особенности такого метода.
Тыкается и удаляется красный квадратик. Как в следующий раз корел должен понять что вы хотите удалить именно его?

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

Код:

ActiveDocument.CreateSelection ActiveDocument.Pages(15).Layers("Слой 1").Shapes(979)

, что за цифирь в скобках после 'Shapes' ?

Код:

ActiveDocument.Pages(1).Layers("Слой 1").Paste
    Dim Paste1 As ShapeRange
    Set Paste1 = ActiveSelectionRange
    Paste1.Move 5.412941, -4.158701
    Paste1.Move 0.492571, 0.221693
    Paste1.Move 0#, -1.377953

, после слова 'Move' - это координаты вставляемого объекта?

Поиск

Help! Раскладка в CorelDRAW Х3

Serrg_Shaman

Участник

Вложения

xm

иксэ́м

Skvoznyak

Serrg_Shaman

Участник

Вложения

Serrg_Shaman

Участник

splxgf

Serrg_Shaman

Участник

Вложения

Skvoznyak

splxgf

Serrg_Shaman

Участник

Serrg_Shaman

Участник

Skvoznyak

Serrg_Shaman

Участник

Skvoznyak

Serrg_Shaman

Участник

Skvoznyak

Serrg_Shaman

Участник

Serrg_Shaman

Участник

splxgf

Serrg_Shaman

Участник