Как быстро найти или удалить абзацы, содержащие определенный текст в документе Word

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

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

Точно так же на этот раз мы покажем вам детали поиска или удаления абзацев, содержащих определенные тексты.

Найдите или удалите абзацы, содержащие определенные тексты, через VBA

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

Sub DeleteParagraphsContainingSpecificTexts() Dim strFindTexts As String Dim strButtonValue As String Dim nSplitItem As Long Dim objDoc As Document strFindTexts = InputBox("Введите тексты, которые нужно найти здесь, и используйте запятые для их разделения: ", "Тексты, которые нужно найти") nSplitItem = UBound(Split(strFindTexts, ",")) With Selection .HomeKey Unit:=wdStory ' Находит введенные тексты один за другим. Для nSplitItem = 0 To nSplitItem With Selection.Find .ClearFormatting .Text = Split(strFindTexts, ",")(nSplitItem) .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWholeWord = False . MatchCase = False .MatchSoundsLike = False .MatchWildcards = False .MatchAllWordForms = False .Execute End With Do While .Find.Found = True ' Расширить выделение на весь абзац. Selection.Expand Unit:=wdParagraph strButtonValue = MsgBox("Вы уверены, что хотите удалить абзац?", vbYesNo) If strButtonValue = vbYes Then Selection.Delete End If .Collapse wdCollapseEnd .Find.Execute Loop Next End With MsgBox ("Word имеет завершил поиск всех введенных текстов.") Set objDoc = Nothing End Sub

6. Затем нажмите кнопку «Выполнить» или нажмите «F5», чтобы выполнить коды.
7. Теперь в появившемся окне «Тексты для поиска» введите тексты в текстовое поле. Этот макрос позволяет найти несколько текстов одновременно. Вы просто вводите тексты, которые хотите найти, и разделяете их запятыми. Помните, что после запятой нельзя вводить пробел.
8. Затем нажмите «ОК», чтобы двигаться дальше.
9. Далее первый абзац с tarполучить текст находится в выборе. А также есть окно сообщения, спрашивающее, хотите ли вы удалить абзац. Нажмите «Да», чтобы удалить абзац. Или нажмите «Нет», чтобы перейти к следующему вхождению текста.
10. После завершения поиска в документе появляется окно сообщения, подобное приведенному ниже:

Работа с поврежденными документами Word

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

Об авторе:

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