Колонтитулы

Можно передвинуть полоску границы "верхнего поля" вверх, а "нижнего поля" - вниз.

Подскажите, как убрать колонтитулы совсем-совсем. Чтобы даже полей от них не осталось. На данный момент висит знак абзаца в верхнем и нижнем колонтитулах. Как избавиться - хз.
Sub deleteAllHeaders_Footers()

Dim sec As Section
Dim hf As HeaderFooter
Dim rng As Range
For Each sec In ActiveDocument.Sections
    For Each hf In sec.Headers
        hf.Range.Delete
    Next hf
    For Each hf In sec.Footers
        hf.Range.Delete
    Next hf
Next sec
End Sub

Удалял данным макросом, но он убрал только текст. Сами поля остались висеть.

Alex_Gur пишет:

Можно передвинуть полоску границы "верхнего поля" вверх, а "нижнего поля" - вниз.

Но таким образом меняется ведь и граница текста, т.е. поля страницы, а это, вроде, уже лишнее...

оказалось всё просто - надо сделать активным колонтитул, выделить знак абзаца, нажать delete (знак абзаца не уберётся, но это глюк ворда), а потом разактивировать колонтитул - знак абзаца исчезнет. Попробуйте :-)

Софья Игнатьева пишет:

оказалось всё просто - надо сделать активным колонтитул, выделить знак абзаца, нажать delete (знак абзаца не уберётся, но это глюк ворда), а потом разактивировать колонтитул - знак абзаца исчезнет. Попробуйте :-)

Это работает только для первого раздела. Для последующих разделов это работает, только если их колонтитулы имеют опцию "Как в предыдущем" (т.е. они повторяют колонтитул первого раздела).

По-моему, знак конца абзаца нельзя удалить из колонтитулов 2-го раздела и далее. Я придумал только делать шрифт в колонтитулах 1 пт. При этом можно сразу изменить встроенные стили для колонтитулов ("Верхний колонтитул" и "Нижний колонтитул").

но несмотря на снятие опции "Как в предыдущем разделе" абзац всё равно убирается...

In some versions you can actually get rid of the paragraph mark by deleting header (footer) contents, but in others a blank paragraph mark will remain, even if you delete the (printable) contents.