Поиск по тексту 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.

Заключение

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

Текстовые файлы — это основной тип файлов; Файл TXT можно легко открыть в Windows, macOS и Linux с помощью терминального приложения или основного текстового редактора. Благодаря этому вы сможете искать содержимое текстовых файлов изнутри Windows 10 без использования каких-либо сторонних инструментов.

Большинство файлов можно найти, но сначала их нужно открыть. Если вам нужно искать несколько файлов, это может быть утомительно. В Windows 10, если у вас установлены приложения Microsoft 365, вы можете искать текст в документах Word, но это все.

Текст записывается во всевозможные файлы. Это не ограничивается только файлами DOCX. Таблицы и презентации содержат много текста, и часто пользователям необходимо искать файл по определенному слову или фразе, которые в нем содержатся.

Чтобы найти текст в нескольких офисных файлах, выполните следующие действия.

Скачать и запустите Office Search. Устанавливать приложение не нужно.
Введите текст в поле «Что искать». Вы можете ввести несколько слов, разделив их точкой с запятой (;).
Выберите папку в поле Где.
Если в папке есть подпапки, и вы хотите включить подпапки в поиск, включите опцию «Включить подпапки».
Если вы хотите найти определенный тип файла, например XLSX, PPTX или DOCX, вы можете ввести расширение файла в поле File Pattern.
Наконец, если вы ввели несколько слов для поиска, выберите вариант «Любое слово», «Все слова» или «Учитывать регистр».
Щелкните Поиск.

В результатах поиска будут перечислены все файлы в папке. Для файлов, в которых есть совпадающие слова, вы увидите «Найдено» в столбце «Статус».
Дважды щелкните файл в результатах поиска, чтобы открыть его.

Поддерживаемые типы файлов

Хотя мы говорим, что вы можете использовать Office Search для файлов Microsoft, то есть DOCX, PPTX, XLSX, он также работает с файлами Libre Office, и вы можете выполнять поиск по ним почти таким же образом.

Заключение

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

Что вы думаете об этой статье?

Содержание

  1. Поиск текста в документе
  2. Как в компьютере найти документ по слову в тексте ворд
  3. Способ 1. Поиск через «Средства поиска» ОС Windows 10
  4. Способ 2. Поиск через Total Commander
  5. Способ 3. Поиск через Notepad++
  6. Как искать текст в Word
  7. Поиск текста в документе Word
  8. Настройка функций расширенного поиска
  9. Как найти текстовый документ на компьютере, если не помнишь название
  10. Эволюция функции «Поиск»
  11. Начинаем искать
  12. Все текстовые документы
  13. По имени
  14. По дате
  15. По типу
  16. По размеру
  17. По содержанию
  18. Поиск по тексту в Ворде
  19. Самый простой поиск в Word – кнопка «Найти»
  20. Расширенный поиск в Ворде
  21. Как в Word найти слово в тексте – Расширенный поиск
  22. Направление поиска
  23. Поиск с учетом регистра
  24. Поиск по целым словам
  25. Подстановочные знаки
  26. Поиск омофонов
  27. Поиск по тексту без учета знаков препинания
  28. Поиск слов без учета пробелов
  29. Поиск текста по формату
  30. Специальный поиск от Ворд
  31. Опции, которые не приносят пользы

Поиск текста в документе

Поиск текста в документе? Область поиска можно находить символов, слов и фраз. При желании вы можете Заменить его с другой текст.

Если вы используете режим чтения, переключитесь в режим редактирования, выбрав пункты Редактировать документ > Изменить в Word Web App.

fc9c98a8 ac29 4351 af8c 429e0f19ca56

Чтобы открыть область Поиск в режиме редактирования, нажмите сочетание клавиш CTRL+F или выберите Главная > Поиск.

ec032e86 6cc5 4e87 bffb bbcc654c27cc

Чтобы найти текст, введите его в поле Поиск в документе. Word Web App приступит к поиску, как только вы начнете вводить текст. Чтобы сузить результаты, щелкните значок в виде лупы и выберите один или оба параметра поиска.

a6610d42 4434 4cad b5ea 27950b4a9121

Когда вы вводите текст или вносите изменения в документ, Word Web App приостанавливает поиск и очищает область Поиск. Чтобы снова просмотреть результаты, щелкните стрелку Следующий результат поиска или Предыдущий результат поиска.

fd77f26c 7645 4ef5 86d7 e913662ee484

После завершения поиска щелкните X в конце поле » Поиск документов для. «.

Источник

Как в компьютере найти документ по слову в тексте ворд

Довольно часто бывает такое — написал текст, сохранил, а под каким названием был файл, со временем забыл. Либо компьютер просто захламлен большим количеством мусора из файлов и отыскать нужный файл помогут как штатные средства ОС Windows, так и сторонние ПО.

Способ 1. Поиск через «Средства поиска» ОС Windows 10

Открываем каталог/папку, где предполагаем начать поиск файла (в моем случае это рабочий стол), в окне справа находим поле поиска, в котором будет написано: «Поиск: Рабочий стол» (если поиск подразумевается в другой папке, то вместо «рабочий стол» будет название папки). Щелкаем правой кнопкой мыши по этому полю и вводим слово или фразу по которой ходит найти файл.

В моем случае нашлось два файла, которые содержат внутри слово «Windows»:

a429ce3d98ecac970afb8f24c2e50e01

Для поиска в документах MS Office необходимо перейти во вкладку «Поиск», в «Дополнительные параметры» отмечаем пункт «Содержимое файлов»:

d8df6c7bac175bbe17beed8923071351

Способ 2. Поиск через Total Commander

Открываем ПО Total Commander, на панели управления находим кнопку с «лупой» — кнопку поиска. Либо нажимаем «Команды» — «Поиск файлов. ». Либо нажимаем на клавиатуре сочетание клавиш «Alt+F7». Во всех трех случаях откроется окно поиска файлов. Во вкладке «Общие параметры» выбираем в пункте «Место поиска» путь, по которому будем производить поиск, далее отмечаем галочку «С текстом» и пишем искомую фразу или слово, по завершении нажимаем кнопку «Начать поиск»:

7f1e3561f1702ed12a4963481fea95b3

Если система найдет файлы, результат будет следующим:

83f3cc65adcc497816f621a106dc426e

Способ 3. Поиск через Notepad++

Открываем ПО Notepad++, щелкаем «Поиск» — «Найти в файлах», либо нажимаем на клавиатуре клавиши «Ctrl+Shift+F». В появившемся окне поиска в пункте «Папка» выбираем путь для поиска, а в пункте «Найти» указываем искомое слово, затем щелкаем кнопку «Найти все» и радуемся результату поиска:

efbaefbc7ecf6f4a1744df23cad6cd21

defaultа попроще. без умничаяния?

Источник

Как искать текст в Word

wsi imageoptim nRgalylAp9M5OdJbiGI9

M icrosoft Word предоставляет функцию, которая позволяет Вам искать текст в документе. Вы также можете использовать расширенные настройки, чтобы сделать поиск более конкретным, например, сопоставление регистра или игнорирование знаков препинания. Вот как это использовать.

Поиск текста в документе Word

Для поиска текста в Word Вам потребуется доступ к панели «Навигация». Это можно сделать, выбрав «Найти» в группе «Редактирование» на вкладке «Главная».

wsi imageoptim

Альтернативный способ доступа к этой панели — использование сочетания клавиш Ctrl + F в Windows или Command + F в Mac.

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

wsi imageoptim uSJLe1t6PfT4WERhrXzN

Вы можете перемещаться по результатам поиска, нажимая стрелки вверх и вниз, расположенные под окном поиска, или щелкая непосредственно по фрагменту результата на панели навигации.

wsi imageoptim IoNZ76tIjd30w8E8kWK9

Настройка функций расширенного поиска

Минус основной функции поиска состоит в том, что она не учитывает многие вещи, такие как регистр букв в тексте. Это проблема, если Вы ищете в документе, который содержит много контента, например, книгу или диссертацию.

Вы можете настроить это, перейдя в группу «Редактирование» на вкладке «Главная», выбрав стрелку рядом с «Найти» и выбрав «Расширенный поиск» в раскрывающемся списке.

wsi imageoptim

Откроется окно «Найти и заменить». Выберите «Больше».

wsi imageoptim 1KoIfOw2MuiS2ZcfRXc9

В группе «Параметры поиска» установите флажок рядом с параметрами, которые хотите включить.

wsi imageoptim

Теперь при следующем поиске текста в Word поиск будет работать с выбранными дополнительными параметрами.

Источник

Как найти текстовый документ на компьютере, если не помнишь название

Poisk

Эволюция функции «Поиск»

Первоначально поговорим об эволюции поисковой функции с появлением новых версий Windows. Помните XP? Окно поиска было отдельным. Ещё там сидел симпатичный помощник – собачка или кто-то другой. Попасть в него можно было через «Пуск».

Poisk1

В левую часть окна были вынесены настройки поиска:

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

В новых версиях Windows – 7, 8 и 10 функция претерпела косметические изменения. Почему косметические? Да потому что её действие осталось прежним, но только параметры поиска задаются автоматически, когда в строку, расположенную и сразу в меню Пуск, и в каждой папке, вы вписываете значение для поиска. Либо их можно также настроить, но совершенно в другом месте. Исключение – только поиск по содержанию документа, но и это легко решаемо. Пока непонятно? Рассмотрим подробнее по каждому параметру чуть ниже. Зачем разработчики всё усложнили, точнее, упростили? Видимо, они заботились о нас вечно занятых пользователях.

Вот как выглядит поисковая строка в Windows 10.

Poisk2

А вот так в восьмой точка один версия ОС.

Poisk3

Поскольку с XP всё понятно, я буду рассказывать о различных возможностях поиска на примере «восьмёрки», тем более «семёрка» и «десятка» от неё в этом вопросе практически не отличаются.

Начинаем искать

Друзья, хватит разглагольствовать, приступим к основному вопросу — как можно найти потерявшийся документ Word на компьютере по разным его характеристикам.

Все текстовые документы

Сначала давайте попробуем найти на компьютере абсолютно все текстовые документы, не оглядываясь на такие параметры, как их название, содержимое и дата создания. Для этого откройте «Мой…», «Этот…» или просто «Компьютер». В правом верхнем его углу, рядом со строкой пути, найдётся и поисковая строка. А по соседству с основными разделами меню («Файл», «Вид» и другими) найдётся раздел «Поиск». Забегая вперёд, скажу, что именно там находятся настройки основных параметров.

Poisk4

Друзья, если вы хотя бы знаете, в какой папке находятся ваши текстовые документы, то перейдите в неё – это значительно облегчит работу вашей машине. Для поиска всех текстовых документов в строке необходимо вписать значение *.doc, *.docx или *.txt (зависит от того, что вы планируете найти).

По имени

Если вы знаете имя документа, то отыскать его не составит труда. Просто введите имя в строку поиска, и «вкушайте плоды». Но что делать, если название нужного файла в голове не сохранилось? В таком случае у вас остаётся ещё несколько вариантов – найти нужный документ, отсортировав имеющиеся по дате его рождения на свет (или изменения), по размеру (от пустых и крошечных до огромных и гигантских), по типу (выбрав «документ») или по внутреннему тексту.

По дате

Зайдите в любую папку, поставьте курсор в поисковую строку. В этот же момент отобразится новый раздел меню «Поиск». Раскройте его содержимое. Среди прочих настроек вы увидите параметр «по дате создания» (или последнего изменения). Среди возможных вариантов диапазоны времени от «сегодня» до «в прошлом году». Или просто попробуйте в строку ввести значение в виде точной даты. В результатах должны отобразиться все документы, созданные или изменённые указанного числа.

Poisk5

По типу

Среди тех же настроек имеется параметр «по типу». Перечень возможных вариантов включает файлы всех возможных типов – от календаря и контакта до музыки и фильма. В нашем случае требуется выбрать значение «документ».

Poisk6

По размеру

Тут же можно выбрать и размер. Машина будет искать даже пустые документы. Максимальный размер для поиска – 128 мегабайт.

Poisk7

По содержанию

Друзья, вот и подошли к тому, с чего начали – поиск текстового файла по его содержимому. Есть два варианта. Первый – это отметить галочкой нужный параметр всё в тех же настройках. Там есть раздел «Дополнительные параметры», в котором следует пометить галочкой пунктик «Содержимое файлов». Затем вводите нужную фразу в строке и запускайте поисковый процесс.

Poisk8

Poisk9

Poisk10

В то же окно настроек можно попасть и по-другому (актуально для «семёрки»):

Poisk11

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

Источник

Поиск по тексту в Ворде

Работая с текстом, особенно с большими объемами, зачастую необходимо найти слово или кусок текста. Для этого можно воспользоваться поиском по тексту в Ворде. Существует несколько вариантов поиска в Word:

Самый простой поиск в Word – кнопка «Найти»

Самый простой поиск в ворде – это через кнопку «Найти». Эта кнопка расположена во вкладке «Главная» в самом правом углу.

poisk po tekstu v vorde 1

! Для ускорения работы, для поиска в Ворде воспользуйтесь комбинацией клавишей: CRL+F

После нажатия кнопки или сочетания клавишей откроется окно Навигации, где можно будет вводить слова для поиска.

poisk v vorde

! Это самый простой и быстрый способ поиска по документу Word.

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

Расширенный поиск в Ворде

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

Существует 3 варианта вызова расширенного поиска:

poisk slov v vorde

kak najti slovo v tekste word

kak najti v vorde slovo v tekste

В любом случае все 3 варианта ведут к одной форме – «Расширенному поиску».

Как в Word найти слово в тексте – Расширенный поиск

После открытия отдельного диалогового окна, нужно нажать на кнопку «Больше»

poisk po dokumentu word

После нажатия кнопки диалоговое окно увеличится

kak najti v vorde nuzhnoe slovo

Перед нами высветилось большое количество настроек. Рассмотрим самые важные:

Направление поиска

В настройках можно задать Направление поиска. Рекомендовано оставлять пункт «Везде». Так найти слово в тексте будет более реально, потому что поиск пройдет по всему файлу. Еще существуют режимы «Назад» и «Вперед». В этом режиме поиск начинается от курсора и идет вперед по документу или назад (Вверх или вниз)

napravlenie poiska v vorde

Поиск с учетом регистра

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

poisk s uchetom registra

Поиск по целым словам

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

poisk celyh slov

Подстановочные знаки

Более тяжелый элемент, это подстановочные знаки. Например, нам нужно найти все слова, которые начинаются с буквы м и заканчиваются буквой к. Для этого в диалоговом окне поиска нажимаем галочку «Подстановочные знаки», и нажимаем на кнопку «Специальный», в открывающемся списке выбираем нужный знак:

podstanovochnye znaki

В результате Word найдет вот такое значение:

poisk s podstanovochnymi znakami

Поиск омофонов

Microsoft Word реализовал поиск омофонов, но только на английском языке, для этого необходимо выбрать пункт «Произносится как». Вообще, омофоны — это слова, которые произносятся одинаково, но пишутся и имеют значение разное. Для такого поиска необходимо нажать «Произносится как». Например, английское слово cell (клетка) произносится так же, как слово sell (продавать).

poisk omofonov

! из-за не поддержания русского языка, эффективность от данной опции на нуле

Поиск по тексту без учета знаков препинания

Очень полезная опция «Не учитывать знаки препинания». Она позволяет проводить поиск без учета знаков препинания, особенно хорошо, когда нужно найти словосочетание в тексте.

poisk po tekstu bez ucheta znakov prepinanija

Поиск слов без учета пробелов

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

poisk slov bez ucheta probelov

Поиск текста по формату

Очень удобный функционал, когда нужно найти текст с определенным форматированием. Для поиска необходимо нажать кнопку Формат, потом у Вас откроется большой выбор форматов:

poisk teksta po formatu

Для примера в тексте я выделил Жирным текст «как найти слово в тексте Word». Весть текст выделен полужирным, а кусок текста «слово в тексте Word» сделал подчернутым.

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

poisk teksta po formatu 2

После проделанных манипуляция не забудьте нажать кнопку «Снять форматирование». Кнопка находится правее от кнопки «Формат».

Специальный поиск от Ворд

Правее от кнопки формат есть кнопка «Специальный». Там существует огромное количество элементов для поиска

specialnyj poisk ot vord

Через этот элемент можно искать:

Опции, которые не приносят пользы

!Это мое субъективное мнение, если у вас есть другие взгляды, то можете писать в комментариях.

Источник

Обновлено 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

Понравилась статья? Поделить с друзьями:
  • Поиск повторяющихся значений в excel в одном столбце формула
  • Поиск по текстовому документу word
  • Поиск по таблице в excel с выводом
  • Поиск по таблице в excel на телефоне
  • Поиск по таблице в excel комбинация клавиш