Поиск текста в нескольких документах word

В Windows 10, Linux и macOS текстовые файлы можно с легкостью открыть при помощи Терминала (Командной строки) или стандартного редактора текста. Именно это дает возможность выполнять дальнейший поиск любого содержимого таких текстовых файлов без использования сторонних программных средств.

Поиском может быть охвачено множество файлов, однако для этого необходимо предварительно их открыть, а это может стать утомительным занятием. Но даже с популярными офисными инструментами для Windows 10, например такими, как Word или Microsoft 365, вы сможете найти текст только в текущем открытом документе и все.

Поиск определенного текста сразу в нескольких файлах

Очевидно, что текст вносится в файлы всевозможных форматов. Он не будет ограничен размещением только в документах DOC или DOCX. Электронные таблицы Excel, презентации PowerPoint также могут его содержать. Поэтому пользователям часто требуется найти конкретный файл по определенному содержимому.

Это можно осуществить следующим способом.

1. Посетите сайт sourceforge.net и загрузите бесплатное приложение «Office Search«, которое не требует установки в систему.
   

2. В самом верхнем поле «Что искать» напишите искомое слово или несколько, разделив их точкой с запятой.
3. В поле «Где» выберите каталог.
4. Если в нем есть вложенные папки, поставьте отметку для их активации.
5. При желании найти файлы определенного типа, введите их расширение.
6. Наконец, если вы ввели несколько слов, выберите опцию «Любое слово«, «Все слова«. Также можно установить «Соответствие регистру«.
7. Нажмите на кнопку «Поиск«.Когда сканирование будет завершено, в окне результатов вы увидите все документы каталога, среди которых синим цветом и словом «Найдено» будут обозначены файлы с искомым содержимым. Вы можете дважды нажать на нужный, чтобы открыть его.

Какие типы файлов поддерживаются?

Office Search умеет работать со всеми популярными форматами: DOCX, XLSX, PPTX, RTF, TXT, CSV. Также допускается поддержка файлов, созданных в LibreOffice.

Заключение

Если вы сохранили документ, а потом забыли, как он называется, его содержимое — наилучший способ найти такой файл повторно. Поиск по тексту здесь имеет решающее значение. Что еще важно, такие файлы, в отличие от изображений, не относятся к тому типу, о содержании которых можно судить по миниатюре. Ведь они не имеют эскизов, отображаемых в Проводнике операционной системы. Спасибо за внимание!

Обновлено 22.09.2009г.

По просьбе автора макроса Евгения Родыгина и в связи с появлением новой усовершенствованной версии макроса (см. заметку Макрос пакетной замены от Александра Витера) я разместил ниже ссылку на скачивание новой версии.

Предположим, у вас есть несколько документов, в которых вам необходимо изменить определенный (одинаковый во всех документах) фрагмент текста на другой текст. Открывать эти документы по одному и вручную менять текст — утомительно. Ладно, если документов всего пять. А если их десять или того больше? Без средств автоматизации не обойтись.

Я для подобных задач пользуюсь отличной программой @Text Replacer от отечественных разработчиков. Эта программа предназначена для многострочного поиска и замены текста в различных текстовых файлах с учетом регистра и игнорируемых символов (перевод строки, пробел и т.д.).

Однако существует и решение на VBA (макрос), позволяющее искать и заменять фрагмент текста во всех файлах какой-либо папки. Этот макрос — Replace text on a batch of files — разработан несколькими уважаемыми людьми и опубликован на сайте Graham Mayor (Microsoft MVP).

Работает макрос следующим образом.

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

  введите искомый текст и нажмите кнопку ОК

  

  введите заменяющий текст и нажмите кнопку ОК

  

• Макрос осуществит все необходимые действия по замене текстовых фрагментов в ваших документах, открывая и закрывая их последовательно друг за другом.

Скопировать код макроса можно на этой странице.

Обновление:

Читатель сайта Евгений Родыгин предлагает другой вариант решения данной задачи — с использованием бесплатного макроса. Вот, что он пишет:

Большая проблема — поиск и замена текста в нескольких документах Word. Есть несколько платных программ для этого. Но есть, оказывается, бесплатный макрос от Word Search and Replace Version 2.30 Funduc Software, Inc..

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

На скриншоте видно, что достаточно лишь ввести нужные данные в три ячейки таблицы: путь к папке с файлами, искомый текст и текст для замены:

Обновлено 22.09.2009г.

По просьбе автора макроса Евгения Родыгина и в связи с появлением новой усовершенствованной версии макроса (см. заметку Макрос пакетной замены от Александра Витера) я разместил ниже ссылку на скачивание новой версии:

For a purpose of executing multiple normal and wildcard-based replacements in multiple MS Word files located in multiple folders under given root folder, I have created following VBA macro. In order to use it, you have change content of following variables (constants):

• rootPath: root folder under which are located folders containing Word documents.
• findTextsWild and replaceTextsWild: array of wildcard-based find and replace expressions.
• findTexts and replaceTexts: array of normal find and replace expressions.

May be you will find it usefull

Sub GlobalTextReplacement()
' Root under which all manuals are stored
Dim rootPath As String
rootPath = "c:DataManuals"

' Find and replace text for wildcard replacement. Performed first.
Dim findTextsWild() As Variant, replaceTextsWild() As Variant
findTextsWild = Array("[ ]{2;}", "[cC]onfiguration[/ ]@[pP]olicy [rR]epository", "[sS]ervlet[- ]@[fF]ilter")
replaceTextsWild = Array(" ", "Configuration/Policy Repository", "Servlet-Filter")

' Find and replace text for normal case insensitive replacement. Performed second.
Dim findTexts() As Variant, replaceTexts() As Variant
findTexts = Array("DirX Access", "Policy Repository", "User Repository", "Servlet", "servletfilter", "SAML assertion", "DirX Access Server", "DirX Access Manager", "Deployment Manager", "Policy Manager", "Client SDK", "^p ", " ^p")
replaceTexts = Array("DirX Access", "Policy Repository", "User Repository", "Servlet", "Servlet-Filter", "SAML assertion", "DirX Access Server", "DirX Access Manager", "Deployment Manager", "Policy Manager", "Client SDK", "^p", "^p")

' Main code
Application.ScreenUpdating = False

Dim dirNames(20) As String
Dim dirNamesCount As Integer
dirNamesCount = 0

Dim dirName As String
dirName = Dir$(rootPath & "*", vbDirectory)
Do Until LenB(dirName) = 0
    Dim dirPath As String
    dirPath = rootPath & dirName
    If ((GetAttr(dirPath) And vbDirectory) = vbDirectory) And (dirName <> ".") And (dirName <> "..") Then
        dirNamesCount = dirNamesCount + 1
        dirNames(dirNamesCount) = dirPath & ""
    End If
    dirName = Dir$
Loop

Do While dirNamesCount > 0
    Dim fileName As String
    dirName = dirNames(dirNamesCount)
    dirNamesCount = dirNamesCount - 1
    fileName = Dir$(dirName & "*.doc", vbDirectory)
    Do Until LenB(fileName) = 0
        Dim filePath As String
        filePath = dirName & fileName
        fileName = Dir$

        Dim document As document
        Set document = Documents.Open(filePath)
        document.TrackRevisions = True

        document.Select

        Dim i As Integer, maxIndex As Integer
        maxIndex = UBound(findTextsWild)
        For i = LBound(findTextsWild) To maxIndex
            With Selection.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = findTextsWild(i)
                .Replacement.Text = replaceTextsWild(i)
                .Execute Replace:=wdReplaceAll, Forward:=True, _
                    Wrap:=wdFindContinue, MatchWildcards:=True
            End With
        Next

        maxIndex = UBound(findTexts)
        For i = LBound(findTexts) To maxIndex
            With Selection.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = findTexts(i)
                .Replacement.Text = replaceTexts(i)
                .Execute Replace:=wdReplaceAll, Forward:=True, _
                    Wrap:=wdFindContinue, MatchCase:=False, MatchWildcards:=False
            End With
        Next

        document.Save
        document.Close
    Loop
Loop

Application.ScreenUpdating = True
End Sub

Если у вас есть несколько десятков файлов слов, которые содержат одинаковое содержимое (например, верхний колонтитул, нижний колонтитул, некоторые специальные слова или числа), и вам необходимо заменить одно и то же содержимое в этих документах в Word. Как вам было бы проще сделать это быстро? Конечно, вы можете открывать эти файлы один за другим, чтобы заменить одно и то же содержимое, но это займет много времени и проблем. Это руководство покажет вам сложный способ одновременной замены одного и того же содержимого в нескольких документах Word.

Находите и заменяйте тексты в нескольких документах Word одновременно с помощью кода VBA
Легко находите и заменяйте разные тексты в нескольких документах одновременно с помощью Kutools for Word

–>

Находите и заменяйте тексты в нескольких текстовых документах одновременно с кодом VBA

1. Нажмите Alt + F11 , чтобы открыть окно Microsoft Visual Basic для приложений .

2. В окне Microsoft Visual Basic для приложений нажмите Вставить > Module , затем скопируйте следующий код VBA в модуль окно.

Код VBA: поиск и замена одного и того же содержимого в нескольких документах одновременно

3. Нажмите клавишу F5 , чтобы запустить код.

4. В открывшемся окне Обзор найдите и выберите документы, которые вы найдете, и замените текст внутри, а затем нажмите кнопку OK . См. Снимок экрана:

5. В первом диалоговом окне Kutools for Word введите текст, который вы найдете в документах, в поле Найти , а затем нажмите Кнопка ОК .

6. Во втором диалоговом окне Kutools for Word введите текст, которым вы будете заменять, и нажмите кнопку OK .

8. Нажмите кнопку OK в следующем диалоговом окне Microsoft Word , чтобы завершить поиск и замену..

В этом случае все слова “Word” в выбранном документы заменяются на «Excel» одновременно.

Легко находите и заменяйте разные тексты в нескольких документах одновременно с помощью Kutools for Word

Здесь настоятельно рекомендуется использовать функцию Пакетного поиска и замены в Kutools for Word . С помощью этой функции вы можете легко находить и заменять разные тексты в нескольких документах Word одновременно. Давайте посмотрим, как применить эту функцию для поиска и замены текста в документах.

Kutools for Word : с более чем 100 удобными надстройками Word, бесплатно, без ограничений в течение 60 дней .

1. Нажмите Kutools Plus > Пакетный поиск и замена , чтобы включить эту функцию.

2. В диалоговом окне Пакетный поиск и замена настройте следующее.

• 2.1) Нажмите Добавить строку на вкладке Найти и заменить ;
• 2.2) В полях созданной строки:

A . Введите текст, который вы найдете, в текстовое поле в столбце Найти
B. Введите текст, который вы замените, в текстовое поле в столбце Заменить ;
C. Укажите тип поиска, где искать текст и цвет для выделения текста по мере необходимости. В этом случае я выбираю полное соответствие слов , основной документ и определенный цвет из типа поиска, Найти в и Выделить столбцы;

• 2.3) Повторите шаги 2.1 и 2.2, чтобы добавить другие тексты, которые вы будете найти и заменить;
• 2.4) Нажмите кнопку в Тип файла , чтобы добавить документы Word, в которых вы будете искать и заменять тексты;
• 2.5) Нажмите Заменить или Найти кнопка. См. Снимок экрана:

Примечания :

3. Закройте диалоговое окно Пакетный поиск и замена

Для получения дополнительных сведений об этой функции щелкните здесь ….

Если вы хотите получить бесплатную пробную версию этой утилиты, сначала перейдите к бесплатно загрузить программное обеспечение , а затем перейдите к применению операции в соответствии с вышеуказанными шагами.

Рекомендуемые инструменты для повышения производительности Word