powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word, cменить все header 1 на 3 в массе файлов
2 сообщений из 2, страница 1 из 1
Word, cменить все header 1 на 3 в массе файлов
    #37125200
Igor2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день,

возникла задача сменить все заголовки в word 2003,
header 1
header 2
>
на header 3

в сотне файлов самого разного вида и форматирования.

На данный момент приходится старым методом - открывая порционно и меняя все практически вручную.

Можно ли это автоматизировать?
...
Рейтинг: 0 / 0
Word, cменить все header 1 на 3 в массе файлов
    #37125540
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Igor2008,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
' заполинить массив arrdoc полными путями к интересующим документам
' для каждого абзаца каждого документа изменить свойство Style (если надо, конечно)
For each docName in arrdocs
  Set doc = Documents.Open(docName) 
  For each par in doc.Paragraphs
    If par.Style = wdStyleHeading1 Or par.Style = wdStyleHeading2 Then _
      par.Style = wdStyleHeading3
  Next par
  doc.Save
  Set doc = Nothing
Next docName
' ЗЫ: если стили HeadingN применялись к элементам, более мелким, чем параграф, 
'     то парсить документы по этим более мелким..
' ЗЗЫ: скорее всего есть более быстый способ
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word, cменить все header 1 на 3 в массе файлов
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]