Тема: Пакетное удаление колонтитулов (Нужна помощь)
Здравствуйте! Очень нужна помощь!
Есть вот такой макрос удаления всех колонтитулов с документа.
Вопрос: может ли кто из Вас его немного подправить, чтобы он работал пакетно? То есть что бы указать папку с doc файлами которые он сам по очереди все вычистит от колонтитулов. Большущие спасибо, кто поможет!
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