4 полезных метода поиска и замены текста в части документа Word

В этом документе мы рады показать вам 4 полезных метода поиска и замены текста в части документа Word.

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

Способ 1: используйте функцию «Найти и заменить» в выделении

1. Сначала выберите tarполучить текст.
2. Во-вторых, нажмите «Ctrl + H», чтобы открыть окно «Найти и заменить».
3. Затем введите текст поиска в текстовое поле «Найти что» и заменяющий текст в поле «Заменить на».
4. Затем нажмите кнопку «Заменить все».
5. Появится окно с вопросом, хотите ли вы продолжить поиск в остальной части документа. Убедитесь, что вы нажали «Нет».

Способ 2: запуск кодов VBA для поиска и замены текста в выделенном фрагменте

1. Прежде всего, выберите диапазон содержимого документа.
2. Затем запустите редактор VBA, нажав «Alt + F11».
3. Затем нажмите «Обычный» и нажмите «Вставить».
4. Выберите в меню «Модуль».
5. Теперь откройте модуль двойным щелчком мыши.
6. Скопируйте и вставьте туда следующие коды:

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. Затем нажмите «F5».
8. Появятся два поля ввода. Введите текст поиска и замены соответственно в два поля.
9. Нажмите «ОК», чтобы продолжить.

Вы получите точно такой же эффект, как и в методе 1.

Способ 3: запустить макрос Word для поиска и замены текста на указанной странице

Следующий макрос позволяет найти и заменить текст на определенной странице.

1. Сначала установите и запустите макрос, следуя шагам метода 2.
2. Затем замените этот макрос на этот:

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. После запуска этих кодов появится 3 поля ввода. Введите номер страницы в первое поле, введите найденный текст во второе и введите замещающий текст в третье.
4. Не забудьте нажать «ОК», чтобы продолжить.

Способ 4: запустить макрос Word для поиска и замены текста в разделе

1. Точно так же выполните те же действия, что и в способе 2, чтобы установить и запустить макрос.
2. Только на этот раз используйте вместо этого макрос:

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Не забудьте ввести номер раздела в первом поле. И введите поиск и замену текстов в следующих двух полях.
4. Тем не менее, нажмите «ОК», чтобы продолжить.

Справиться с проблемами Word

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

Об авторе:

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