Як знайти та замінити вміст у кількох документах Word

У сьогоднішній статті ми раді повідомити вам про спосіб пошуку та заміни вмісту в кількох документах Word.

Загалом, більшість користувачів Word добре знайомі з функцією «Знайти та замінити» в програмі. Вона допомагає нам з пакетною обробкою всього документа, що заощаджує нам багато часу. Чи думали ви про використання цієї опції для кількох документів, наприклад, для всіх файлів у певній папці?

Оскільки завжди є потреба шукати та замінювати вміст у пакеті файлів, було б непогано реалізувати цю функцію. І наш спосіб - використовувати макрос. Будь ласка, читайте далі, щоб дізнатися більше.

Кроки для встановлення та запуску макросу

1. Перш за все, помістіть усі файли в одну папку та відкрийте Word.
2. Потім натисніть вкладку “Розробник”.
3. Далі натисніть «Visual Basic». Або просто натисніть «Alt+F11», щоб запустити редактор VBA.
4. Потім натисніть «Звичайний» проект.
5. Потім натисніть вкладку «Вставити», а потім виберіть «Модуль».
6. Тепер ви успішно вставили новий модуль. Двічі клацніть по ньому, щоб відкрити простір кодування.
7. Вставте наведені нижче коди туди:

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub

8. Нарешті, натисніть «Виконати».
9. Тепер з’явиться вікно введення. Введіть шлях до папки, у якій зберігаються документи.
10. Потім натисніть «ОК», і з’явиться друге поле. Введіть тексти, які ви хочете знайти.
11. Продовжуйте натискати «OK», щоб відкрити третє поле введення, у якому ви вводите тексти для заміни, і натисніть там кнопку «OK». Макрос автоматично замінить увесь вміст і збереже зміни.

Як ви бачите, цей макрос надає вам 3 поля введення, де ви можете ввести шлях до папки, текст пошуку та заміни. Тож ви можете призначити кнопку для цього макросу та додати його на «Панель швидкого доступу» для повторного використання.

Щодо того, як призначити кнопку макросу, ви можете прочитати цю статтю: Як видалити форматування вставлених текстів за допомогою макросів та VBA у вашому слові

Захистіть цінні дані

У Word можуть виникати помилки та проблеми. Як наслідок, цінні документи можуть бути пошкоджені. При зустрічі з пошкодження документа, бажано придбати професійний інструмент відновлення, щоб отримати дані.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі xls пошкодження та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com