VB-Makro für Selektion in Word nach Format

[scouty]

...nach langem hin und her probieren, habe ich dann doch noch eine lösung gefunden, die zumind. meine Zwecke erfüllt. Der erfahrene VB-Progammierer mag zwar über diese umfangreiche Routine im Verhältnis zur zuerfüllenden Aufgabe den Kopf schütteln, aber es läuft. Ihr könnt mir natürlich immer noch bessere alternative Lösungen liefern, denn ich lerne auch in VB gerne dazu...

Code:

With ActiveDocument.Content.Find
    .ClearFormatting
    .Font.Name = "Symbol"
    .Font.Color = wdColorBlue
    .Format = True
    .Replacement.ClearFormatting
    .Replacement.Font.Color = wdColorBrown
    .Execute Forward:=True, Replace:=wdReplaceAll, _
        FindText:="", ReplaceWith:=""
End With

With ActiveDocument.Content.Find
    .ClearFormatting
    .Font.Color = wdColorBlue
    .Format = True
    .Replacement.ClearFormatting
    .Replacement.Font.Name = "Geogia"
    .Execute Forward:=True, Replace:=wdReplaceAll, _
        FindText:="", ReplaceWith:=""
End With

With ActiveDocument.Content.Find
    .ClearFormatting
    .Font.Name = "Symbol"
    .Format = True
    .Replacement.ClearFormatting
    .Replacement.Font.Color = wdColorBlue
    .Execute Forward:=True, Replace:=wdReplaceAll, _
        FindText:="", ReplaceWith:=""
End With

Greetings Joerg

[edit=sakura] [code]-Tags gesetzt. In Zukunft bitte selbst erledigen. Mfg, sakura[/edit]