|
Ich möchte in einer Vielzahl von Word Dokumenten einzelne Wörter immer markieren, um sie einfacher finden zu können. Dazu habe ich ein Makro aufgezeichnet und will es an meine Bedürfnisse anpassen. Das ursürüngliche Makro sah so aus und funktioniert auch:
Sub Deutsch()
Dim wort As String
wort = "cora"
Options.DefaultHighlightColorIndex = wdYellow
Selection.Font.Bold = wdToggle
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
.Text = wort
.Replacement.Text = wort
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
ich habe daraufhin das Makro aufgeteilt in in ein Aufrufendes und ein ausführendes Makro
Sub aufrufen()
Dim wort1 As String
wort1 = "Cora"
Markieren wort1
wort1 = "geht"
Markieren wort1
wort1 = "suchen"
Markieren wort1
Markieren "die"
End Sub
Sub Markieren(ByVal wechselwort As String)
Options.DefaultHighlightColorIndex = wdYellow
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = False
With Selection.Find
.Text = wechselwort
.Replacement.Text = wechselwort
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Abewr hier passiert genau - NICHTS.
Wahrscheinlich ein Anfänger -Fehler aber ich verstehe es einfach nicht. Kann mir jemand helfen?
Vielen Dank im Voraus!
|