Сборка документа из разных шаблонов

[Aent]

Есть большое число шаблонов документов. Делается выборка из них
Затем последовательно на основе выбранных шаблонов создаются
документы. В документах делается обработка специальных полей.
Всё это делается со скрытым Word. Причём объект Word.Application
динамически создаётся из Excel. До этого момента всё работает.
Проблема состоит в том что необходимо полученные (сгенерированные)
документы слить в один. Что бы распечатать в последствии на не дуплексном принтере последовательно 1-е и 2-е страницы.
Cохранять документы и затем вставлять по InsertFile не хочется. Такой вариант у меня работает.
Попробовал через Copy/Paste но не получается переключиться для вставки на скрытое окно временного документа в котором должен собираться текст для распечатки.

On Error Resume Next
Set WordObj = GetObject(, "Word.Application")
If Err.Number <> 0 Then 
     Err.Clear
     Set WordObj = CreateObject("Word.Application")
     If Err.Number <> 0 Then
           Exit Sub
     End If
 End If
Set TDoc = WordObj.Documents.Add(Visible:=True) 'результирующий документ
'........................
For i = 1 to N
      Set WordDoc = WordObj.Documents.Add("T" & CStr(i), False)
      ОбработкаДокументаСозданногоНаОсновеШаблона WordDoc
      With WordObj.Selection
             .WholeStory
             .Copy   'cкопировали документ
       End with
       ' здесь надо перейти к TDOC , начать новую секцию
       '  c помощью InsertBreak Type:=2
       ' и вставить туда скопированный документ по Paste
      WordDoc.close(0) 'wdDoNotSaveChanges
End With

Объединяемые документы имеют свои колонтитулы и сложную
структуру. C кучей рамок, надписей и внедрённых объектов
Что то я в эту жару не соображу как проще это сделать

[viter.alex]

Так подойдёт?

Set oRng = TDoc.Range
With oRng
  .Collapse wdCollapseEnd
  .InsertBreak 2
  .SetRange TDoc.Range.End, TDoc.Range.End
  .Paste
End With

[Aent]

Спасибо, viter.alex. К сожалению так не получается. В результирующем документе съезжают надписи и как следствие появляются лишние страницы. Точнее, в нижней надписи для нотариуса на первой странице меняется при копировании размер шрифта с 10 на 12 - поэтому всё и плывёт.
Индивидуальные документы создаются без проблем.
По ссылке архив, содержащий темплейт на основе которого создаются документы, индивидуальные файлы и сборка с использованием вашего кода
http://www.rapidshare.ru/1603367

[viter.alex]

Шрифты, думаю, будут ехать, если не оформить весь текст стилями. Если нужно только распечатать, то можно попробовать копировать постранично как картинку и вставлять как картинку.
Код для сохранения страницы в картинку (требует установленного Access)

Sub SaveToBMP() 
  Dim ADODB As Object 
  Set ADODB = CreateObject("ADODB.Stream") 
  With ADODB 
    .Type = 1 ' adTypeBinary 
    .Open 
    .Write (Selection.Bookmarks("\page").Range.EnhMetaFileBits) 
    .SaveToFile ("Страница " & Selection.Information(wdActiveEndPageNumber) & ".bmp") 
    .Close 
  End With 
  Set ADODB = Nothing 
End Sub

[Aent]

картинка это не вариант.
Странно. При копировании "руками" ничего ведь не съезжает.

[viter.alex]

Честно говоря, я не проверял — нет сейчас возможности. Может быть дело в сохранеии формата при вставке? Нужно сохранить формат оригинала, а по умолчанию оставляет исходный формат?

[Aent]

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