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

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

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

Решение:

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

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

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

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

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

Сам макрос:

Sub ворд_замена_в_файлах()
    
    что_заменить = "123"
    чем_заменить = "1234"
        
    Set fd = Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)
    f = fd.Show
    If f = 0 Then Exit Sub
   
    For Each fl In fd.SelectedItems
        Set flw = Documents.Open(fl)
        flw.ActiveWindow.Selection.HomeKey Unit:=wdStory
        flw.ActiveWindow.Selection.Find.ClearFormatting
        flw.ActiveWindow.Selection.Find.Replacement.ClearFormatting
        With flw.ActiveWindow.Selection.Find
            .Text = что_заменить
            .Replacement.Text = чем_заменить
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        flw.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceAll
        flw.Close -1
    Next fl
    End Sub

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

Для документов 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. Скачать программу можно по ссылке

Ранее:
Как узнать, когда были внесены изменения в таблицу Excel 2010?

Далее:
Как из большого количества файлов вытащить значение определенной ячейки?