Разработка технической документации и технические писатели Технические писатели и разработка технической документации технические писатели в Телеграм 

 obmen_soobsheniyami.png Чат для технических писателей 
 Зарегистрируйтесь
Страницы: 1
RSS
Удаление сразу всех колонтитулов в *.doc
 
Коллеги, подскажите как удалить из документа [b:167pcasw]СРАЗУ ВСЕ[/b:167pcasw] колонтитулы. Или по отдельности: все верхние / все нижние.

Не выходит что-то в Word 2007 (либо забыл, либо стандартным способом нельзя?).

Получается только по одному в режиме работы с колонтитулами.
 
Еще косяк в том, что каждая страница = 1 раздел. Удалить можно парой кнопок в режиме конструктора все колонтитулы, но в 1 разделе. 300 страниц = 300 разделов. Это хлопотно.
 
Нашел ответ. Оказывается так делать нельзя. Можно только с помощью макроса.
 
Вот кусок кода для макроса (вставить между Сабами), если кому надо.
[code:2j7um8o0]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
[/code:2j7um8o0]

header - верхний, footer - нижний соответственно.

Можно удалять все нижние, либо все верхние, кому как удобно.
 
Другой вопрос, как применить макрос не открывая doc файл? Типа в "пакетном" режиме к нескольким файлам сразу.
 
Тоже никак. Надо открывать файлы  :cry:
 
Эх.. Как всё же хорошо  иногда поговорить с умным человеком  :mrgreen:
 
Цитата
Другой вопрос, как применить макрос не открывая doc файл? Типа в "пакетном" режиме к нескольким файлам сразу.

Попробуйте так:


Sub bb()
FolderPath = "C:\1\"   'задаем папку
f = Dir(FolderPath)
Do While f <> ""
ChangeFileOpenDirectory FolderPath
Documents.Open FileName:=f
Selection.TypeText Text:="qwerty"        'тело макроса от сих
ActiveDocument.Save
ActiveWindow.Close                       'до сих
f = Dir
Loop
End Sub

Открывает массив документов в папке,  выполняет макрос.
Работать надо не 12 часов, а головой.
 
Цитата
Попробуйте так:
бла-бла-бла

Открывает массив документов в папке,  выполняет макрос.

Это в файл *.vbs сохранить и выполнить?

Если у меня не установлен  MSO, работать не будет?
 
Дело в том, что генерю файлы из Dita в Unix-среде. Бесплатный FOP не может сделать ряд возможностей, а "триальный" Java-аналог оставляет в колонтитулах свою подпись.
Я файлами DOC не пользуюсь, соответственно ворда у меня нет (теоретически). Но этот формат требует руководство для клиентов и партнеров.

Возможно есть какая-то утилита, которая входит в состав MSOffice или OpenOffice, которая может открывать/сохранять файлы [b:2zjv9hhk]*.doc[/b:2zjv9hhk] в командной строке. Googling...

Аналогичная ситуация в линуксе с компиляцией CHM,-есть утилиты, которые компилируют под линуксом (напомню, что это справка только для винды). Все работает нормально.
Страницы: 1
Читают тему