Консультация № 160945
20.02.2009, 00:01
0.00 руб.
0 1 1
Подскажите, как в Excel из документа удалить колонтитулы автоматическим путем

для верда я в инете нашел

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

Обсуждение

Неизвестный
20.02.2009, 09:38
общий
это ответ
Здравствуйте, Дмитрий Кучма!

В экселе (проверено в Ex2003 и Ex2007) одно из решений вашей задачи выглядит так:

Sub clearHeadersNFooters()
emptySpace = ""
For i = 1 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(i).PageSetup
.LeftHeader = emptySpace
.CenterHeader = emptySpace
.RightHeader = emptySpace
.LeftFooter = emptySpace
.CenterFooter = emptySpace
.RightFooter = emptySpace
End With
Next
End Sub

Рад был помочь!
Форма ответа