Дублирование информации из одного документа в другой

[Никитин Илья]

Добрый день. Требуется написать программу, которая берет информацию с одного word документа (1 страница с рисунком, закладками, таблицей, текстом) и вставляет эту информацию в другой word документ в его конец (предполагается сделать так n-раз). Исходный файл существует, результирующий надо сохранить

Вот до чего додумался я:
...
Dim app As Word.Application
Dim doc As Word.Document
Dim pattern As Word.Document


Set app = New Word.Application 'объявляем объект документ
Set pattern = Word.Documents.Open(ThisWorkbook.Pa th + "\Шаблон.doc")
Set doc = app.Documents.Add 'создаем объект
app.Visible = True 'включаем его отображение


pattern.Select
Word.Selection.Copy
...

только:
1) как перейти к другому документу я не нашел(activate не сработал)
2) если вставлять это в "pattern", то едет форматирование и не сохраняются закладки

[Serega_1]

Сообщение от Никитин Илья

Добрый день. Требуется написать программу, которая берет информацию с одного word документа (1 страница с рисунком, закладками, таблицей, текстом) и вставляет эту информацию в другой word документ в его конец (предполагается сделать так n-раз). Исходный файл существует, результирующий надо сохранить

Вот до чего додумался я:
...
Dim app As Word.Application
Dim doc As Word.Document
Dim pattern As Word.Document


Set app = New Word.Application 'объявляем объект документ
Set pattern = Word.Documents.Open(ThisWorkbook.Pa th + "\Шаблон.doc")
Set doc = app.Documents.Add 'создаем объект
app.Visible = True 'включаем его отображение


pattern.Select
Word.Selection.Copy
...

только:
1) как перейти к другому документу я не нашел(activate не сработал)
2) если вставлять это в "pattern", то едет форматирование и не сохраняются закладки

Если я правильно понял:
Открываем документ "2" (в который копируем), свернуть
Открываем документ 1 (с которого копируем)
Запускаем макрос - сколько нужно раз

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 05.11.2014 Сергей
'
Selection.WholeStory
Selection.Copy
Windows("2").Activate
Application.WindowState = wdWindowStateNormal
Selection.EndKey Unit:=wdStory
Selection.PasteAndFormat (wdPasteDefault)
ActiveWindow.ActivePane.VerticalPer centScrolled = 78
End Sub