☰

Макрос Word для Ctrl +F

tag-icon • tag-icon microsoft-word microsoft-office vba
Макрос Word для Ctrl +F

Не уверен, возможно ли это. У меня есть макрос для выделения кучи текста. Он в основном автоматизирует процесс прохождения расширенного меню, нажатия подстановочных знаков, ввода моего поиска и нажатия «выделить все».

  1. Я могу нажать Ctrl + F, чтобы получить список результатов. Я хочу автоматизировать это

  2. Моя проблема в том, что я не могу найти способ открыть навигационную панель с результатами.

  3. Кажется, есть несколько способов открыть навигационную плоскость. Но все они открывают для меня пустую. Не знаю, нужно ли мне что-то добавлять в макрос, чтобы он записал.

Затем вы нажимаете Ctrl +F, и навигационная плоскость показывает результаты.

    --------CODE TO HIGHLIGHT TARGET 1------------------- 
    Options.DefaultHighlightColorIndex = wdYellow
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    With Selection.Find
    .Text = "target1"
    .Replacement.Text = ""
    .Forward = True 
    .Wrap = wdFindContinue 
    .Format = True 
    .MatchCase = True 
    .MatchWholeWord = False 
    .MatchWildcards = True 
    .MatchSoundsLike = False 
    .MatchAllWordForms = False 
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

решение1

Управление панелями задач, такими как Navigation Pane, невозможно с помощью VBA. Панели задач не отображаются в объектных моделях приложений Office.

Существует бесплатная надстройка Word, которая называетсяAuthorTec Find'n Highlightи имеет встроенную функцию навигации, которая позволяет вам переходить к каждому текстовому элементу, найденному и выделенному надстройкой.

Связанный контент