Как соблюсти порядок элементов страницы при копировании ?

[teatral]

Копирую содержимое страницы в другой документ:

            For Each obj In FromDoc.Pages(1).pageitems
                Set obj1 = obj.Duplicate(ToDoc.Pages(1))
                Next obj

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

 

[Eugenyus]

Ответ: Как соблюсти порядок элементов страницы при копировании ?

Две мысли. Первая — цикл запустить с конца. Вторая — сгруппировать, скопировать, разгруппировать.

 

[teatral]

Ответ: Как соблюсти порядок элементов страницы при копировании ?

А специального поля разве нет, которое показывает порядок сортировки?

 

[Skvoznyak]

Ответ: Как соблюсти порядок элементов страницы при копировании ?

index

но через группу - намного проще

 

[teatral]

Ответ: Как соблюсти порядок элементов страницы при копировании ?

Две мысли. Первая — цикл запустить с конца. Вторая — сгруппировать, скопировать, разгруппировать.

Запустил цикл с конца - все сработало

 

[teatral]

Ответ: Как соблюсти порядок элементов страницы при копировании ?

А как скопировать страницу, если в документе несколько слоев?
Ведь у объекта Layer нет свойства Pages

 

[_MBK_]

Ответ: Как соблюсти порядок элементов страницы при копировании ?

А какая разница? Есть же allPageItems

 

[Eugenyus]

Ответ: Как соблюсти порядок элементов страницы при копировании ?

Да и просто page.duplicate() хоть внутри документа, хоть в новый, всё как надо копируется. Что у Вас не получилось?

 

[teatral]

Ответ: Как соблюсти порядок элементов страницы при копировании ?

Да и просто page.duplicate() хоть внутри документа, хоть в новый, всё как надо копируется. Что у Вас не получилось?

Видимо неправильно делаю, такой код не срабатывает:

Set PageNewDoc = FromDoc.Pages(1).Duplicate(ToDoc)

 

[Eugenyus]

Ответ: Как соблюсти порядок элементов страницы при копировании ?

На java это выглядит так:

curPage.duplicate(LocationOptions.AFTER,doc1.pages[0]);

Сработает ли на VBA, не подскажу.

 

[teatral]

Ответ: Как соблюсти порядок элементов страницы при копировании ?

А какая разница? Есть же allPageItems

Для перебора всех элементов PageItems в одном и том же документе в одних случаях должен быть перебор от первого элемента к последнему в других от последнего к первому (видимо в зависимости от последовательности вставки верстальщиком)

На java это выглядит так:

curPage.duplicate(LocationOptions.AFTER,doc1.pages[0]);

Сработает ли на VBA, не подскажу.

Работает! Я просто упустил первый аргумент (LocationOptions.AFTER), посчитал, что метод Page.duplicate имеет те же аргументы, что и для многих других объектов

 

[_MBK_]

Ответ: Как соблюсти порядок элементов страницы при копировании ?

в одних случаях должен быть перебор от первого элемента к последнему в других от последнего к первому (видимо в зависимости от последовательности вставки верстальщиком)

Вовсе не поэтому, а потому что при дублировании они вносятся в тот же список allPageItems. Но ведь вы ж все равно на другую страницу копируете - тут такой проблемы быть не должно. Хотя, конечно, проще всю страницу сразу сдублировать.