Einzelnen Beitrag anzeigen

scouty

Registriert seit: 27. Nov 2003
Ort: Dresden
47 Beiträge
 
#2

Re: VB-Makro für Selektion in Word nach Format

  Alt 9. Jan 2004, 20:50
...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]
  Mit Zitat antworten Zitat