кто-бы смог доработать до ума макрос?

Написал ManYacK в 02/12/2008 13:18:03

Дела такое. Массив баркодов создается в отдельнйо проге, и после некоторой доработки. Мы имеем в кореле в слое "Рабочий стол" несколько сот совершенно одинаковых Шейпов, который приходися в ручную выравнивать по страницами.

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

Вот примерно как он выглядит:
Sub Macro1()
'
' Recorded 02.12.2008
'
' Description:
'
'
ActivePage.Shapes.All.AlignToShape cdrAlignRight, ActiveDocument.MasterPage.DesktopLayer.Shapes(1), cdrTextAlignBoundingBox
Dim p1 As Page
Set p1 = ActiveDocument.InsertPagesEx(1, False, ActivePage.Index, 3.346457, 2.125984)
p1.Shapes.All.AlignToShape cdrAlignRight, ActiveDocument.MasterPage.DesktopLayer.Shapes(1), cdrTextAlignBoundingBox
Dim p2 As Page
Set p2 = ActiveDocument.InsertPagesEx(1, False, p1.Index, 3.346457, 2.125984)
p2.Shapes.All.AlignToShape cdrAlignRight, ActiveDocument.MasterPage.DesktopLayer.Shapes(1), cdrTextAlignBoundingBox
Dim p3 As Page
Set p3 = ActiveDocument.InsertPagesEx(1, False, p2.Index, 3.346457, 2.125984)
p3.Shapes.All.AlignToShape cdrAlignRight, ActiveDocument.MasterPage.DesktopLayer.Shapes(1), cdrTextAlignBoundingBox
Dim p4 As Page
Set p4 = ActiveDocument.InsertPagesEx(1, False, p3.Index, 3.346457, 2.125984)
End Sub

Кто бы мог доработать этот скрипт, чтобы он автоматически создавал страницы. Т.е. не надо было ему тупо прописывать Dim p5 As Page, а скрипт сам создавал страницу p как p(последняя)+1 и вставлял в эту созданную страницы следующйи объект?