
Ich bin mir nicht sicher, ob das möglich ist. Ich habe ein Makro zum Hervorheben einer Menge Text. Es automatisiert im Grunde den Vorgang, durch das erweiterte Menü zu gehen, Platzhalter zu drücken, meine Suche einzugeben und auf „Alles hervorheben“ zu klicken.
- Ich kann Strg + F drücken, um eine Liste mit Ergebnissen zu erhalten. Ich möchte dies automatisieren
Mein Problem ist, dass ich keine Möglichkeit finde, die Navigationsebene mit Ergebnissen zu öffnen.
Es gibt anscheinend mehrere Möglichkeiten, die Navigationsebene zu öffnen. Aber bei mir öffnen sie alle eine leere Ebene. Ich weiß nicht, ob ich dem Makro etwas hinzufügen muss, damit es schreibt.
Anschließend drücken Sie Strg+F und die Navigationsebene zeigt Ergebnisse an.
--------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
Antwort1
Die Steuerung von Aufgabenbereichen wie dem Navigationsbereich ist mit VBA nicht möglich. Aufgabenbereiche werden in den Office-Anwendungsobjektmodellen nicht angezeigt.
Es gibt ein kostenloses Word-Add-In namensAuthorTec Find'n Highlightund es verfügt über eine integrierte Navigationsfunktion, mit der Sie zu jedem Textelement gelangen können, das vom Add-In gefunden und hervorgehoben wurde.