Консультация онлайн # 160945

Раздел: Пакет MSOffice
Автор вопроса: Дмитрий Кучма
Дата: 20.02.2009, 00:01 Консультация неактивна
Поступило ответов: 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

Ответ # 1, Botsman (Посетитель)

Здравствуйте, Дмитрий Кучма!

В экселе (проверено в 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

Рад был помочь!

Botsman

Посетитель
20.02.2009, 09:38
Нет оценки ответа

Мини-форум консультации # 160945


Нет сообщений в мини-форуме
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.