Копирование колонтитулов

[Solyarka]

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

Код:
Documents(2).Activate
ActiveDocument.Sections(1).Headers( wdHeaderFooterFirstPage).Range.Copy
Documents(1).Activate
ActiveDocument.Sections(1).Headers( wdHeaderFooterFirstPage).Range.Past e

[viter.alex]

Похоже, что Вы перепутали документы: копируете пустой колонтитул и вставляете его на место заполненного.
Откройте окно Immediate (Ctrl+G), а в код добавьте такие строки:

Debug.Print "Documents(2).Name = " & Documents(2).Name
Debug.Print "Documents(1).Name = " & Documents(1).Name

тогда вы увидите имена ваших документов

[БуреВестник]

Если ответ Витера не подходит, тогда дело в том, что

Headers(wdHeaderFooterFirstPage)

это означает Колонтитул первой страницы раздела.
Возможно, что во втором документе у вас в первом разделе не виден Колонтитул первой страницы первого раздела. Скопированное в него вставляется, но отображается просто Колонтитул раздела.
Тогда надо добавить:

Documents(1).Activate
ActiveDocument.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Paste

[Solyarka]

Спасибо, я действительно перепутала документы )