Как изменить несколько файлов word одновременно

При редактировании текстовых документов иногда возникает необходимость найти и заменить внутри них какой-нибудь фрагмент. Для большинства редакторов это не проблема, практически в любой подобной программе имеется функция поиска и замены, но что, если такую замену нужно выполнить в пакетном режиме? Представьте, что вам нужно заменить всего лишь одно слово, но в нескольких документах. Открывать каждый файл и производить правку занятие весьма утомительное и нерациональное, благо и с этой задачей умеют справляться текстовые редакторы. Правда, не все. Популярнейший офисный пакет Microsoft Office до сих пор не имеет внятных инструментов пакетной замены текстовых фрагментов, поэтому приходится прибегать к помощи сторонних утилит, с парочкой из которых мы сегодня познакомимся.

@Text Replacer

Если вы до сих пор не слезли с Windows 7, попробуйте утилиту @Text Replacer, скачав оную с сайта tr.infortech.ru. Эта очень простая и легкая программа позволяет заменять многострочные фрагменты в текстовых файлах разных типов и построчные в файлах Microsoft Word, но при условии наличия последнего на компьютере. Утилитой поддерживаются работа со вложенными каталогами, различение регистров, игнорирование указанных символов, возможен поиск по содержимому файлов без замены.

На вкладке «Текст и размещение» имеется четыре поля.

В поле «Имя» можно указать тип (формат) обрабатываемых файлов, в поле «Папка» – каталог с файлами, поля «Найти» и «Заменить на» служат для ввода искомого и заменяемого текста соответственно.

К сожалению, при тестировании в Windows 10 у нас возникли проблемы, @Text Replacer так и не смоглa ничего найти, возможно, потому что мы использовали неоригинальный пакет Word, а может быть по той причине, что программа не поддерживает работу с этой версией системы (поддержка Windows 10 не заявлена разработчиком).

Replace Genius

Куда большими возможностями в плане поиска, замены и вообще обработки текстовых файлов обладает программа Replace Genius, доступная для скачивания на сайте www.rlvision.com. Она универсальна, имеет много настроек, поддерживает работу с регулярными выражениями, предпросмотр результатов обработки и многое другое. В программе нет русского языка, но разобраться всё же можно. Поиск и замена в ней производится по шаблону, который сначала нужно создать. Для этого в левой колонке на вкладке «Replace» в полях «Find» и «…and replace with» вам нужно указать заменяемый и заменяющий текст.

Заполнив поля, нажмите F12 и кликните в открывшемся менеджере пресетов кнопку «Add».

Добавив в список шаблон, можно приступать к самому поиску и замене. Нажмите на панели инструментов сверху кнопку «Batch», добавьте обрабатываемые документы Microsoft Office и укажите в окошке мастера каталог для сохранения результатов.

Также вы можете заменить исходники новыми файлами, но всё же будет лучше перестраховаться. После нажатия «OK» и «Start» программа внесет изменения в ваши документы согласно заданным параметрам.

Макросы

Когда мы сказали, что в Microsoft Office нет простых и эффективных инструментов для пакетной замены текста, то вовсе не имели ввиду, что их вообще нет. Благодаря встроенному в офисный пакет языку программирования VBA знающие в нём толк опытные пользователи могут создавать макросы – этакие командные файлы в формате Microsoft Office. Один из таких макросов, созданный неким Александром Витером, как раз предназначен для замены текста сразу в нескольких файлах Word. Скачать его можно бесплатно с ресурса wordexpert.ru/page/makros-paketnoj-zameny-ot-aleksandra-vitera.

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

При первом запуске нужно разрешить выполнение активного содержимого, что делать дальше, полагаем, догадаетесь сами. Макрос поддерживает замену текста в гиперссылках, а также поиск во вложенных каталогах и с учетом регистра.

Дублирование файлов с сохранением исходника как в Replace Genius не предусмотрено, все сеансы записываются в текстовый лог.

На этом пока всё. Вероятно, есть и другие средства и способы поиска и пакетной замены текстового содержимого «офисных» документов, но и того, что мы здесь предложили для использования, должно вполне хватить.

Время от времени пользователям редактора Word требуется изменить что-то (текст, форматирование) сразу в нескольких документах, без необходимости работы с каждым документом по отдельности. В качестве примера могу привести Макрос пакетной замены, с помощью которого возможно искать и менять какой-то единый текст во многих документах одновременно.

И вот недавно ко мне обратился Дмитрий с просьбой помочь ему в аналогичной ситуации. Он спрашивал:

Дано очень много файлов формата rtf и doc. Необходимо их отформатировать разом, не открывая каждый в отдельности, а именно: изменить во всех размер шрифта на 12, поставить абзацы 1.25, сделать times new roman, изменить поля, покрасить текст в черный, интервал одинарный. Помогите, пожалуйста!

Я предложил Дмитрию воспользоваться следующим макросом (см. код ниже). Но затем подумал, что пользователям наверное было бы удобнее использовать специальную форму для выбора необходимых параметров форматирования текста, нежели копаться в коде макроса и менять эти параметры вручную.

Обновлено 25.03.2010г.. Александр Витер внес исправления в шаблон, чтобы в новых версиях ОС Windows не выскакивали ошибки.

Я разработал такую форму и включил ее в шаблон. Шаблон (предназначенный для редактора Word 2003) имеет дополнительную панель инструментов с кнопкой «Массовое форматирование документов»:

Чтобы иметь возможность подключать эту форму (шаблон) только тогда, когда это необходимо, вам нужно будет разместить файл шаблона (batchFormatDocs.dot) в стандартную папку с шаблонами Word:

C:Documents and SettingsИМЯ_ПОЛЬЗОВАТЕЛЯApplication DataMicrosoftШаблоны.

Как только форма становится нужна, вы открываете меню Сервис, выбираете команду Шаблоны и надстройки и в открывшемся окне нажимаете кнопку Добавить:

Откроется стандартное окно выбора файлов, в котором вы должны найти файл шаблона (если вы добавили его в папку с шаблонами, как описано выше) и выбрать его. В результате шаблон появится в окне и будет доступен:

Форма простая и содержит лишь некоторые параметры форматирования. Я не сторонник ручного форматирования текста — лучше и правильнее создать соответствующие стили. Но иногда это невозможно и проще (быстрее) форматировать документ по-старинке.

В общем виде форма выглядит так:

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

Когда вы закончите работу по форматированию, вы можете выгрузить шаблон. Для этого достаточно снять флажок с имени шаблона в окне Шаблоны и надстройки.

Напоминаю, что шаблон позволяет произвести форматирование текста во многих документах одновременно (без открытия этих документов). Будут отформатированы документы с расширениями doc, rtf и docx, находящиеся в одной папке (а если отмечен флажок «Включая подпапки», то и в дочерних). Процесс форматирования скрыт от пользователя, но по окончании выскочит окошко с уведомлением о завершении процесса форматирования.

Скачать архив шаблона «Массовое форматирование документов» вы можете на странице Полезности Word или прямо отсюда:

Код макроса по параметрам Дмитрия:

Sub batchFormating()
'массовое форматирование документов, находящихся в одной папке
Dim myFile As String
Dim myDoc As Document
Dim path As String
Dim fDlg As FileDialog
Dim ext() As Variant
Dim i As Long
On Error Resume Next
'msoFileDialogFilePicker – позволяет пользователям выбрать один или более файлов.
'Пути к файлам, выбранным пользователям, сохраняются в коллекции элементов FileDialogSelectedItems
Set fDlg = Application.FileDialog(msoFileDialogFolderPicker)
'Выбираем папку с файлами для форматирования
With fDlg
   .Title = "Выберите папку, содержащую документы и нажмите ДА"
   .AllowMultiSelect = False
   .InitialView = msoFileDialogViewList
   If .Show <> -1 Then
      MsgBox "Отменено", , "Массовое форматирование"
      Exit Sub
   End If
   path = fDlg.SelectedItems.Item(1)
   If Right(path, 1) <> "" Then path = path + ""
End With
'Закрываем любые открытые документы
If Documents.Count > 0 Then
   Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
ext = Array("*.doc", "*.rtf") 'Заносим в массив типы расширений
For i = 0 To UBound(ext) 'Запускаем цикл обхода файлов с расширениями из массива
'Заносим в переменную полный путь к первому файлу в папке,
'имена следующих файлов будут получены в цикле функцией Dir$() без аргументов
myFile = Dir$(path & ext(i))
'Запускаем цикл обработки каждого файла в папке
While myFile <> ""
   'Открываем каждый файл без видимости для пользователя
   Set myDoc = Documents.Open(path & myFile, Visible:=False)
   'Изменяем форматирование каждого файла
   With myDoc
      With .Range
         With .PageSetup
            .LeftMargin = CentimetersToPoints(2)
            .RightMargin = CentimetersToPoints(1)
            .TopMargin = CentimetersToPoints(1)
            .BottomMargin = CentimetersToPoints(2)
         End With
         .Paragraphs.FirstLineIndent = CentimetersToPoints(1.25)
         .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
         With .Font
            .ColorIndex = wdBlack
            .Name = "Times New Roman"
            .Size = 12
         End With
      End With
      .Close SaveChanges:=wdSaveChanges
   End With
   myFile = Dir$()   'получаем следующее имя файла из папки
Wend
Next i
Set fDlg = Nothing
Set myDoc = Nothing
End Sub

Массовый поиск и замена в документах MS Office (Word и Excel)

Имеется большое количество документов Word или Excel и в каждом документе нужно
изменить несколько фраз. В каждом документе через замену (Найти и заменить ) это слишком долго.

Решение:

1. Вариант с использованием макроса

a) для Microsoft Excel:
Скопировать макрос в папку с файлами, запустить макрос, задать условия замены, заключая их в кавычки.
выбрать любой файл из папки.



Программа пройдётся по всем листам всех книг (*.xls;*.xlsx) в этой папке,
и поменяет текст в заданной графе. Недостатком способа очевиден –
замена производится только в указанной графе.
Скачать макрос можно по ссылке

б) для Microsoft Word:
Создать новый документ Word, открыть редактор Microsoft VBA, добавить
новый модуль, скопировать текст процедуры ниже. О том как создать макрос более подробно написано
здесь.
При выполнении макроса нужно выбрать файлы, данные в которых подлежат замене:



Что изменить и на что изменить прописывается в теле макроса:
что_заменить = «123»
чем_заменить = «1234»


Сам макрос:

2. В виде приложения

Для документов Word подойдет @Text Replacer — бecплaтнaя пpoгpaммa для быcтpoгo пoиcкa и зaмeны
тeкcтa в фaйлax из выбpaннoй пaпки и влoжeнныx пoдпaпoк.
Работает с дoкумeнтaми тeкcтoвoгo peдaктopa Word: *.doc, *.docx, *.rtf, фaйлaми тeкcтoвoгo фopмaтa:
*.txt, *.ini, *.html, *.php и дp., paбoтa c кoтopыми вoзмoжнa чepeз cтaндapтный Блoкнoт Windows.
Вce фaйлы дpугиx типoв oбpaбaтывaютcя пpoгpaммoй кaк тeкcтoвыe.

Пpoгpaммoй пoддepживaeтcя пoиcк и зaмeнa мнoгocтpoчныx фpaгмeнтoв тeкcтa c учeтoм peгиcтpa и
игнopиpуeмыx cимвoлoв — тaкиx кaк пpoбeлы и пepeвoды cтpoки (windows / *nix).
Программа бесплатная, скачать можно по
ссылке
с официального сайта программы

Не пробуйте @Text Replacer для документов Excel – программа их портит!

Для документов Excel попробуйте FireBall.exe – небольшую программу, не требующую установки.
Файлы Excel необходимо скопировать в папку с FireBall.exe.

В ходе работы программа создает новые файлы, добавляя к названию приставку new.
Скачать программу можно по
ссылке