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
Рад был помочь!