Word-VBA Finden und Highlight-matches

habe ich die folgenden codes, die bereits arbeiten, aber muss noch fein abgestimmt werden. Seine eine Funktion, die feststellt, Treffer für eine Suche mit Platzhalter, string-und die highlights der Ereignisse. Aber ich glaube, es kann noch getan werden, in einer einzigen Zeile, mit alle ersetzen. Ich habe versucht, fast alles, ich könnte denken, und ich denke, die Zeit, Fragen an die Experten zu diesem. Bitte zeigen Sie mir, wie dies geschehen kann, wird in einer noch kürzeren Weg. Jede Hilfe wird sehr geschätzt. Danke!

Sub findfunction()
If (findHL(activedocument.Range, "[aeiou]")) = True Then MsgBox "Highlight vowels Done", vbInformation + vbOKOnly, "Vowels Highlight Result"
End Sub

Function findHL(r As Range, s As String) As Boolean
Dim rdup As Range
Set rdup = r.Duplicate
rdup.Find.Wrap = wdFindStop

Do While rdup.Find.Execute(findtext:=s, MatchWildcards:=True) = True
   If (Not rdup.InRange(r)) Then Exit Do
   rdup.HighlightColorIndex = wdBlue
   rdup.Collapse wdCollapseEnd
Loop

findHL = True
End Function
InformationsquelleAutor decrementor | 2011-03-16
  1. 2

    Versteckten sehr tief in google:

    Options.DefaultHighlightColorIndex = wdYellow

Selection.find.HitHighlight( string )
    InformationsquelleAutor Stan Bienaives
  2. 0

    Ich es geschafft, meine eigene Lösung tut ein paar versuche. Hier ist meine Lösung nur für den Verweis auf andere, die womöglich auf der Suche nach der gleichen Lösung für mein Vorheriges problem:

    Sub findfunction()
If (findHL(activedocument.Content, "[aeiou]")) = True Then MsgBox "Highlight vowels Done", vbInformation + vbOKOnly, "Vowels Highlight Result"
End Sub

Function findHL(r As Range, s As String) As Boolean
Options.DefaultHighlightColorIndex = wdBlue
r.Find.Replacement.highlight = True
r.Find.Execute FindText:=s, MatchWildcards:=True, Wrap:=wdFindContinue, Format:=True,  replacewith:="", replace:=wdReplaceAll
findHL = True
End Function

    Einfache, aber es abgespeckte meinen bisherigen code ein paar Zeilen.

    • Danke für deine Antwort. Die "highlight" - Eigenschaft gilt für den Bildschirm-anzeigen oder den Inhalt des Dokuments. In anderen Worten, er ist ein visueller Hinweis, oder ein Teil des Dokuments (und gedruckt in diesem Fall). Ich bin auf der Suche nach einem Weg, um auf einige Inhalte für den Benutzer.
    InformationsquelleAutor decrementor
Schreibe einen Kommentar