Проблема с колонтитулами

[SVL]

Всем привет! Следующий код:
obword.Selection.HeaderFooter.LinkToPrevious = Not obword.Selection.HeaderFooter.LinkToPrevious
при работе программы
почему то не срабатывает. Колонтитул так и остается с включенным значком "Как в предыдущем". А в режиме отладки все работает нормально. Не знаете в чем дело?

[Vitaly1]

А так нельзя?:

'запомнить состояние окна дакумента
v = ActiveWindow.View
'Включить разметку
ActiveWindow.View = wdOnlineView
'переход в верхний колонтитул
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
'переход в нижний колонтитул
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
'Возврат состояние окна дакумента
ActiveWindow.View = v