ActiveWindow.ActivePane.View.NextHe aderFooter

[Георгиевич]

Витер, объясни мне, что означает этот код

ActiveWindow.ActivePane.View.NextHeaderFooter

ActiveWindow - активное окно. Что за активное окно?
ActivePane - активная панель. Что за панель?

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

    Selection.WholeStory
    Selection.Copy
    ActiveWindow.ActivePane.View.NextHeaderFooter

Вот эта ерунда не работает

Sub HeaderCopy()
On Error GoTo footercopy
Selection.HomeKey Unit:=wdStory
WordBasic.EditOfficeClipboard
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Do
    Selection.WholeStory
    Selection.Copy
    ActiveWindow.ActivePane.View.NextHeaderFooter
    Loop
footercopy:
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Application.Run "footercopy"
End Sub
Sub footercopy()
On Error GoTo ExitSub
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Do
    Selection.WholeStory
    Selection.Copy
    ActiveWindow.ActivePane.View.NextHeaderFooter
    Loop
ExitSub:
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocumentEnd Sub
End Sub

Дай хотя бы направление, где искать.

[viter.alex]

Как я могу дать направление, если не знаю, куда ты идешь? Как в том анекдоте:
— Скажите, я правильно иду?
— Да!