У цій публікації ми зосередимося на демонстрації двох швидких способів одночасного пошуку кількох елементів в одному документі Word.
Той, хто знайомий із Word, повинен досить добре знати опцію "Знайти та замінити". Це добре працює, коли текст пошуку є послідовним рядком. Але, на жаль, це ускладнюється, коли ми хочемо одночасно шукати кілька окремих слів. І там дуже великий попит на викреслювання списку слів або фраз в одному документі одним рухом. Наприклад, якщо ви редактор, може бути кілька слів, які ніколи не повинні відображатися в жодному документі. Якщо так, то вам знадобляться обхідні шляхи, щоб позначити наявність певних слів.
Ось 2 доступні рішення:
Спосіб 1: Імпортуйте слова до словника виключення
Додайте купу слів або фраз до виключеного словника в Word, і тоді під відповідними словами з’явиться червона хвильова лінія, щоб позначити їх.
Докладні кроки для додавання слів до словника виключення наведено в цій статті: 4 корисні поради щодо перевірки правопису слів та перевірки граматики
Спосіб 2: Використовуйте макрос Word
- Перш за все, помістіть усі слова, які ви хочете знайти, в один документ. Кожне слово або фраза повинні займати один абзац. Тут назвемо це «список документів». Збережіть документ.
- По-друге, натисніть вкладку «Розробник».
- Потім натисніть «Visual Basic», щоб відкрити редактор VBA. Альтернативний спосіб - натиснути “Alt + F11”.
- Потім натисніть «Звичайний», а потім вкладку «Вставити».
- І виберіть «Модуль» у меню.
- Двічі клацніть на новий модуль, щоб відкрити область редагування та вставте туди такий макрос:
Sub FindMultiItemsInDoc()
Dim objListDoc As Document
Dim objTargetDoc As Document
Dim objParaRange As Range, objFoundRange As Range
Dim objParagraph As Paragraph
Dim strFileName As String
strFileName = InputBox("Enter the full name of the list document here:")
Set objTargetDoc = ActiveDocument
Set objListDoc = Documents.Open(strFileName)
objTargetDoc.Activate
For Each objParagraph In objListDoc.Paragraphs
Set objParaRange = objParagraph.Range
objParaRange.End = objParaRange.End - 1
With Selection
.HomeKey Unit:=wdStory
' Find target items.
With Selection.Find
.ClearFormatting
.Text = objParaRange
.MatchWholeWord = True
.MatchCase = False
.Execute
End With
' Highlight the found items.
Do While .Find.Found
Set objFoundRange = Selection.Range
objFoundRange.HighlightColorIndex = wdBrightGreen
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
Next objParagraph
End Sub
- Нарешті, натисніть «Виконати».
- Зараз там коробка. Введіть шлях та назву документа списку, який ви щойно зберегли. Потім натисніть «ОК».
Наступне, що ви бачите, - це всі знайдені слова у виділенні.
Захистіть свої документи Word
Один із найпопулярніших заходів для запобігання пошкодженню документів Word – це створення резервних копій. Вони можуть забезпечити вам душевний спокій, коли у вас є пошкоджений docx. Тож не поспішайте створювати резервні копії важливих файлів прямо зараз.
Вступ автора:
Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі корумпований xlsx та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com