1 Тема от snusnu

  • snusnu
  • сержант
  • Неактивен
  • Зарегистрирован: 23.08.2010
  • Сообщений: 13
  • Поблагодарили: 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 Ответ от snusnu

  • snusnu
  • сержант
  • Неактивен
  • Зарегистрирован: 23.08.2010
  • Сообщений: 13
  • Поблагодарили: 1

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

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

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

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