1 Тема от Алекс51

  • Алекс51
  • рядовой
  • Неактивен
  • Зарегистрирован: 23.01.2015
  • Сообщений: 8

Тема: Пакетное удаление колонтитулов (Нужна помощь)

Здравствуйте! Очень нужна помощь!
Есть вот такой макрос удаления всех колонтитулов с документа.

Вопрос: может ли кто из Вас его немного подправить, чтобы он работал пакетно? То есть что бы указать папку с 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

2 Ответ от yshindin

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171
  • За сообщение: 2

Re: Пакетное удаление колонтитулов (Нужна помощь)

Алекс51 пишет:

Здравствуйте! Очень нужна помощь!
Есть вот такой макрос удаления всех колонтитулов с документа.

Вопрос: может ли кто из Вас его немного подправить, чтобы он работал пакетно? То есть что бы указать папку с 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

Алекс51, попробуйте VBA-код, который я указал в ответе на ваш предыдущий вопрос (http://wordexpert.ru/forum/viewtopic.php?id=2503) (где кроме чистки колонтитулов добавляется текст шапки и окончания). Поместите операторы с Dim sec ... по Next sec в подпрограмму ProcessFile.

Сайтyshindin

3 Ответ от Alex_Gur

  • Пакетное удаление колонтитулов (Нужна помощь)
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Пакетное удаление колонтитулов (Нужна помощь)

yshindin, Вы полагаете, что можно преобразовать файлы Word пакетно, без их открытия в Word?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

4 Ответ от yshindin

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171

Re: Пакетное удаление колонтитулов (Нужна помощь)

Alex_Gur пишет:

yshindin, Вы полагаете, что можно преобразовать файлы Word пакетно, без их открытия в Word?

Нет, без открытия нельзя. В программе ProcessFiles файл открывается, а в ProcessFile - обрабатывается. Я имел в виду - поместить код, приведенный Алекс51, в тело подпрограммы ProcessFile.

Сайтyshindin