Есть шаблон word, в нем есть страница. Страницы заполняется на основании табличной части документа. Как размножить эту страницу?

Пробую так

Диапазон = ДокументПечати.goTo(1,1,20);
НачалоДиапазона = Диапазон.start;          
Диапазон = ДокументПечати.goTo(1,2,21);            
Диапазон.start = НачалоДиапазона;        
Диапазон.InsertAfter(Диапазон);


Но InsertAfter копирует только текст. а у меня на странице разными шрифтами текст и картинки.

HELP!!

ап!

ап!!

heplp:)

up!

записывай макрос и смотри его код

может надо Copy вызвать с какими-нить параметрами перед вставкой?

если одна страница как ты гришь:
1) выделить все, скопировать
2) снять выделение
3) курсор вниз страницы
4) вставить новую страницу (разрыв страницы)
5) вставить из буфера скопированное
код - смотри текст макроса

Текст макроса смотрел

Selection.WholeStory
Selection.Copy
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.PasteAndFormat (wdFormatOriginalFormatting)

Но у меня, когда я выделяю область,вот этим кодом

Диапазон = ДокументПечати.goTo(1,1,20);
НачалоДиапазона = Диапазон.start;          
Диапазон = ДокументПечати.goTo(1,2,21);            
Диапазон.start = НачалоДиапазона;  

больше не работают команды TypeParagraph() и MoveDown()

У меня еще шапка есть, первая страница. Так что весь текст не выделить. Нужно конкретную страницу из нескольких множить

(11) :)
1) сколько всего страниц в доке?
2) какую надо копировать страницу?
3) первый код из (10) работает?

Все, ребята!! я справился. Выкладываю код:

Диапазон = ДокументПечати.goTo(1,1,20);
НачалоДиапазона = Диапазон.start;          
Диапазон = ДокументПечати.goTo(1,2,21);            
Диапазон.start = НачалоДиапазона;        
   
Диапазон.copy();                    
Диапазон2 = ДокументПечати.goTo(1,1,22);                  
Диапазон2.PasteAndFormat(16);  

Скопировал 20 и 21 страницу на 22 и 23.