Wort in Dokument hervorheben und markieren

  • Word

    Wort in Dokument hervorheben und markieren

    Hallo,

    ich versuche ein Makro zu erstellen welches ein Dokument nach einem Wort durchsucht, dieses hervorhebt und auf die Seite des ersten Wortes springt und es markiert. Leider schaffe ich nur das Eine oder das Andere und tue mich schwer beide Teile zu einem Makro zu kombinieren.

    Wort im Dokument finden und hervorheben:

    Visual Basic-Quellcode

    1. With ActiveDocument.Content.Find
    2. Options.DefaultHighlightColorIndex = wdYellow
    3. With .Replacement
    4. .Highlight = True
    5. End With
    6. .Execute FindText:="Fehler!", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
    7. End With



    Wort im Dokument auswählen:

    Visual Basic-Quellcode

    1. With Selection.Find
    2. .Text = "Fehler!"
    3. .Replacement.Highlight = True
    4. End With
    5. If Selection.Find.Execute Then
    6. Selection.Select
    7. End If



    Eventuell kann mir jemand einen Tipp geben? Ich habe auch überlegt die Seiten, auf denen ein Wort gefunden wurde, in einer MsgBox auszugeben - hätte jemand eine Lösung für eine solche Operation?

    Vielen Dank und Liebe Grüße.