Как найти и заменить несколько элементов в документе Word

В сегодняшней статье мы хотели бы объяснить вам, как найти и заменить несколько элементов в документе Word.

Встроенная в Word функция «Найти и заменить» позволяет нам находить и заменять слово или фразу за раз. Это, конечно, не может удовлетворить нашу потребность в пакетной обработке.

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

В приведенной выше ссылке обсуждалось, как найти несколько элементов одновременно. И эта статья также покажет вам, как заменить каждый элемент другим новым соответственно.

Запустите Word VBA, чтобы найти и заменить несколько элементов

Макрос — единственный оставшийся способ выполнять индивидуальные и пакетные задачи обработки в Word. Просто следуйте приведенным ниже инструкциям, чтобы выполнить свою миссию.

1. Первый и первыйost, Откройте свой tarполучить документ.
2. Затем нажмите вкладку «Разработчик», если она доступна на ленте.
3. И нажмите «Visual Basic» рядом, чтобы открыть редактор VBA в Word. Или вы можете вместо этого нажать «Alt + F11».
4. Затем нажмите «Обычный» в левом столбце.
5. И перейдите в строку меню, чтобы нажать «Вставить».
6. В раскрывающемся меню выберите «Модуль».
7. Затем дважды щелкните новый модуль, чтобы открыть его.
8. Вставьте следующие коды в модуль:

Sub FindAndReplaceMultiItems()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim nSplitItem As Long
   
  Application.ScreenUpdating = False

  ' Enter items to be replaces and new ones.
  strFindText = InputBox("Enter items to be found here,seperated by comma: ", "Items to be found")
  strReplaceText = InputBox("Enter new items here, seperated by comma: ", "New items")
  nSplitItem = UBound(Split(strFindText, ","))

  ' Find each item and replace it with new one respectively.
  For nSplitItem = 0 To nSplitItem
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = Split(strFindText, ",")(nSplitItem)
        .Replacement.Text = Split(strReplaceText, ",")(nSplitItem)
        .Format = False
        .MatchWholeWord = False
      End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
Next nSplitItem

  Application.ScreenUpdating = True

End Sub

9. Нажмите «F5», чтобы запустить макрос.
10. Теперь будет первое поле ввода. Введите элементы, которые необходимо найти, и используйте запятую для разделения. Не вводите пробел после запятой.
11. Затем нажмите «ОК», чтобы продолжить.
12. Во втором поле ввода введите новые элементы и разделите их запятой.
13. Наконец, нажмите «ОК».

Перед лицом потери данных

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

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая превосходить коррупцию и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com