Удаление колонтитулов.

[Busine2009]

Например, в документе 10 разделов.
Как можно удалить все колонтитулы (чтобы остался только знак абзаца обычного формата (стиль Обычный)), в т.ч. и колонтитулы первой страницы. При этом разрывы разделов нельзя удалять.

[viter.alex]

Вот так можно:

Sub DeleteHeadersFooters()
  Dim oSec As Section, oHeadr As HeaderFooter
  For Each oSec In ActiveDocument.Sections
    For Each oHeadr In oSec.Headers
      oHeadr.Range.Delete
    Next oHeadr
    For Each oHeadr In oSec.Footers
      oHeadr.Range.Delete
    Next oHeadr
  Next oSec
End Sub

[Busine2009]

Спасибо, работает.

[Busine2009]

Просто супер макрос, чудо из чудес, легким коротким подрагиванием экрана монитора удаляются все колонтитулы начисто, просто чудо.