Word VBA Макросы. Как выйти из колонтитулов?

[Посетитель]

Как с помощью макроса выйти из колонтитулов?

[Администратор]

Sub Макрос()
    ActiveWindow.View.SeekView = wdSeekMainDocument
End Sub

[Посетитель]

спасибо