2 интеллектуальных метода удаления содержимого между двумя конкретными словами в документе Word

В этой статье мы хотели бы продемонстрировать вам 2 умных способа удалить содержимое между двумя конкретными словами в документе Word.

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

И сегодня мы проиллюстрируем 2 способа удаления содержимого между двумя конкретными словами в вашем документе Word. Тем не менее, давайте посмотрим, где находятся сценарии применения.

1. Прежде всего, мы склонны помещать текст в скобки. И через некоторое время вам может понадобиться удалить или переписать их, как показано ниже:
2. Во-вторых, в некоторых файлах журналов или лабораторных отчетах вам может потребоваться удалить текст между двумя конкретными словами. Например, на приведенном ниже снимке экрана вам может потребоваться удалить красный текст между «Комментарий:» и «Значение:».

Теперь вот 2 подхода.

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

1. Прежде всего, нажмите «Ctrl + H», чтобы открыть окно «Найти и заменить».
2. В текстовом поле «Найти что» введите первое слово, «*» и второе слово. В нашем случае мы должны ввести «Comment:*Value:».
3. Затем в текстовом поле «Заменить на» введите слова, которые вы хотите сохранить. Например, чтобы удалить только содержимое между словами, вам нужно ввести первое и второе слово в поле «Заменить на», например «Значение комментария». Или вы также можете удалить 2 слова, оставив поле «Заменить на» пустым.
4. Затем нажмите «Дополнительно», чтобы открыть дополнительные параметры.
5. Затем установите флажок «Использовать подстановочные знаки» и нажмите «Заменить все».

Способ 2: запустить коды VBA

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

Sub DeleteTextBetweenTwoWords()
  Dim strFirstWord As String
  Dim strLastWord As String
  Dim objDoc As Document
  Dim objWord As Object
 
  Set objDoc = ActiveDocument
  strFirstWord = InputBox("Enter the first word:", "First Word")
  strLastWord = InputBox("Enter the last word:", "Last Word")
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = strFirstWord & "*" & strLastWord
      .Replacement.Text = strFirstWord & strLastWord
      .MatchWildcards = True
      .Execute Replace:=wdReplaceAll
    End With
  End With
 
  Set objDoc = Nothing
  Set objWord = Nothing
End Sub

5. И нажмите «Выполнить» или нажмите «F5», чтобы выполнить коды.
6. Теперь в поле «Первое слово» введите первое слово. И нажмите «ОК», чтобы продолжить.
7. Точно так же в поле «Последнее слово» введите последнее слово. Нажмите «ОК», чтобы продолжить.

Примечание:

Чтобы также удалить 2 слова, вы можете заменить эту строку кода:

.Replacement.Text = strFirstWord & strLastWord

к

.Replacement.Text = “”

Удалить содержимое в скобках

1. Выполните описанные выше шаги, чтобы установить и запустить макрос.
2. Вместо этого запустите этот макрос:

Sub DeleteTextInAngleBrackets()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "\<(*)\>"
      .MatchWildcards = True
      .Replacement.Text = "<>"
      .Execute Replace:=wdReplaceAll
    End With
  End With
End Sub

Вышеупомянутый макрос предназначен для удаления текста в угловых скобках (<>).

Конечно, в вашем документе может быть много типов скобок.

Для фигурных скобок { }:

Замените

.Text = "\<(*)\>"
.Replacement.Text = "<>"

С

.Text = "\{(*)\}"
.Replacement.Text = "{}"

Для скобок ( ):

Используйте эти 2 строки

.Text = "\((*)\)"
.Replacement.Text = "()"

Для квадратных скобок [ ]:

.Text = "\[(*)\]"
.Replacement.Text = "[]"

Сделайте резервную копию ваших файлов сейчас

Всегда полезно принять меры предосторожности, прежде чем случится что-то плохое. А резервное копирование документов Word позволит вам прибегнуть к последней версии данных в случае какой-либо аварии. Затем вы можете использовать инструмент для восстановить слово без особого беспокойства.

Об авторе:

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