Поделиться через

Поиск на странице, выделение найденного слова/слов, или центрирование результата поиска на экране

Анонимные
2020-04-25T12:11:11+00:00

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

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

Microsoft 365 и Office | Word | Для дома | Windows
Microsoft 365 и Office | Word | Для дома | Windows

Семейство программных продуктов Microsoft для обработки текстов, позволяющее создавать документы для интернета, электронной почты и печати.

Заблокированный вопрос. Этот вопрос был перенесен из сообщества службы поддержки Майкрософт. Вы можете проголосовать о его полезности, но не можете добавлять комментарии или ответы, а также подписаться на этот вопрос.

Комментариев: 0 Без комментариев

Ответы: 3

Сортировать по: Наиболее полезные
  1. Анонимные
    2020-04-25T12:52:37+00:00

    Я уже выяснил - оказывается, это можно реализовать в виде макроса; вот пример скрипта, который находит жирные слова, один за другим переходит  к ним и ставит верхнюю черточку:

    Sub LineAboveBoldText() 'Переходим в начало документа Selection.HomeKey wdStory, wdMove With Selection.Find 'Запускаем поиск жирного текста .Font.Bold = True .Text = "" While .Execute 'Пока поиск завершается удачно If Selection.Paragraphs(1).OutlineLevel = wdOutlineLevelBodyText Then 'Если найденное слово не находится в заголовке ActiveDocument.Fields.Add Selection.Range, wdFieldFormula, "\x\to(" & Selection.Text & ")", False 'добавляем поле EQ ActiveDocument.Fields(ActiveDocument.Fields.Count).Code.Text = Trim(ActiveDocument.Fields(ActiveDocument.Fields.Count).Code.Text) 'Удаляем лишние пробелы End If Wend .ClearFormatting: .Execute 'Очищаем форматирование для поиска End With End Sub

    Этот ответ помог вам?

    Один пользователь счел этот ответ полезным.
    Комментариев: 0 Без комментариев
  2. Анонимные
    2020-04-25T12:55:14+00:00

    Спасибо что поделились решением)

    Ресурс Answers предназначен для домашних пользователей, которые не пишут макросы. Поэтому такие советы, связанные с макросами здесь не дают)

    Макросы помогают писать на специализированных ресурсах

    https://social.msdn.microsoft.com/Forums/ru-ru/...

    и

    https://social.technet.microsoft.com/Forums/ru-...

    Этот ответ помог вам?

    Комментариев: 0 Без комментариев
  3. Анонимные
    2020-04-25T12:14:39+00:00

    Здравствуйте!

    К сожалению, такой возможности в Word нет, горячих клавиш для реализации такой возможности тоже нет(((

    Этот ответ помог вам?

    Комментариев: 0 Без комментариев