В этой статье мы хотим поделиться с вами двумя быстрыми способами поиска всех подчеркнутых текстов в документе Word.
Частое появление подчеркивания в документе Word не является чем-то необычным. Поэтому постоянно возникает так много требований, касающихся применения подчеркивания. Теперь рассмотрим такие запросы.
- Найдите подчеркнутые пробелы. Вы можете растеряться при первой мысли. Но вы можете думать таким образом, что при заполнении экзамена в документе Word вам нужно будет выполнить поиск по файлу, чтобы увидеть, остался ли вопрос без ответа.
- Измените способ зачеркивания текстов. Вы можете выделить текст, подчеркнув его. Однако есть и другие способы, например нанесение текста курсивом.
- Измените цвет подчеркивания. Вы можете изменить цвет подчеркивания, чтобы сделать его более привлекательным.
Чтобы выполнить вышеуказанные требования, есть один общий шаг, который заключается в поиске подчеркиваний. И вот наши 2 метода:
Способ 1: используйте опцию «Расширенный поиск»
- Для начала нажмите вкладку «Главная».
- Затем нажмите кнопку с перевернутым треугольником под надписью «Найти».
- Далее выберите «Расширенный поиск».

- В диалоговом окне «Найти и заменить» нажмите кнопку «Формат».
- Затем выберите «Шрифт».
- В поле «Найти шрифт» выберите стиль подчеркивания, используемый в вашем документе, и нажмите «ОК».
- Теперь выберите либо нажать «Найти в», затем «Основной документ», либо продолжать нажимать «Найти далее». Первый выделит все подчеркивания в документе, а второй позволит вам пройти через подчеркивание одно за другим.
Кстати, если вы хотите пропустить шаги с 4 по 6, вы можете использовать ярлыки. “Ctrl+У” относится к одиночному подчеркиванию и “Ctrl+Shift+D», двойное подчеркивание.
Способ 2: запустить макрос Word
- Сначала нажмите вкладку «Разработчик», а затем «Visual Basic», чтобы вызвать редактор VBA. Альтернативный способ — нажать «Alt+F11».
- Далее нажмите «Обычный».
- Затем нажмите вкладку «Вставка» и выберите «Модуль».
- Теперь вы успешно вставили новый модуль в «Обычный» проект. Дважды щелкните новый модуль, чтобы открыть область редактирования.
- Затем вставьте туда следующие коды:
Sub FindUnderlineInDoc()
Dim objDoc As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objRange = objDoc.Range
objRange.Find.ClearFormatting
objRange.Find.Font.Underline = wdUnderlineSingle
With Selection.Find
.text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Execute
End With
End Sub
- Наконец, нажмите кнопку «Выполнить».
Внимание:
Кодовая строка "objRange.Find.Font.Underline = wdUnderlineSingle” означает, что этот макрос найдет одно подчеркивание. Итак, чтобы найти подчеркивание с другими стилями, вам нужно заменить «вдундерлинесингле” с другими константами, которые вы можете найти здесь: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
Справиться с ошибками в Word
При составлении отчетов сталкивались ли вы когда-либо с поврежденное слово, таким образом теряя файл, над которым вы только что работали? Такой сценарий меньше всего можно ожидать. Тем не менее такое случается и может стать сокрушительным ударом по карьере. Поэтому, чтобы сэкономить ваше время и карьеру, вам также понадобится профессионал для ремонта вашей программы Word.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая xls исправление и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com





