Frage zur Suchen-Funktion in Word

[boeing2707]

Word bietet die Funktion "Makro aufzeichnen" an.
Hiermit ist es möglich,alle Eingaben des Nutzers, aufzuzeichnen und später wieder abzuspielen.
Das Makro führt dann alle gespeicherten Aktionen wieder aus.

Du startest also die Makroaufzeichnung.
Dann gibst du über die Suchfunktion den gewünschten Suchstring ein.
Sobald dieser gefunden ist, wird er von Word markiert. Nun änderst du die Schriftart des markierten Bereiches.
Anschließend wird Makroaufzeichnung beendet.

Das untenstehende Beispiel-Makro findet nach dem Aufrufen
den Beispieltext und unterstreicht diesen.
Die Word-Hilfe bietet beim Umgang mit Makros gute Unterstützung.


Sub Beispiel()
'
' Beispiel Makro (Name des Makros)
'
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "Der von Word zu markierende Text"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Font.UnderlineColor = wdColorAutomatic
Selection.Font.Underline = wdUnderlineSingle
End Sub