1

Тема: Помогите разобраться с колонтитулами

Пытаюсь добавить в колонтитулы линии и текстовые поля
При выполнении

Selection.HeaderFooter.Shapes.AddLine 93.6, 57.6, 504#, 57.6

появляется ошибка : "runtime error '91' object variable or with block variable not set".

При выполнение кода

     For Each Sec In ActiveDocument.Sections
        For Each Foot In Sec.Footers
            Foot.Shapes.AddLine 93.6, 57.6, 504#, 57.6
        Next Foot
     Next Sec

линия добавляется только в первом разделе. В остальных - пусто.

Подскажите как добраться до колонтитулов на текущей странице

2

Re: Помогите разобраться с колонтитулами

Работает такой вариант

Word.ActiveWindow.ActivePane.View.SeekView = 1
Selection.HeaderFooter.Shapes.AddLine 93.6, 57.6, 504#, 57.6
Word.ActiveWindow.ActivePane.View.SeekView = 0

Но он очень медленный.
Второй, кажется, должен быть быстрее.