[color=000080]Sub [/color][color=000000]Makro1() [/color]
[color=000000]    strtext = InputBox("Geben Sie bitte Ihren Text ein:", _
  "Font-Demo") [/color]
[color=000000]    [/color][color=000080]For Each [/color][color=000000]strfont _
In FontNames [/color]
[color=000000]        Selection.Font.Name = strfont [/color]
[color=000000]        Selection.TypeText Text:=strtext [/color]
[color=000000]        Selection.Font.Name = "Arial" [/color]
[color=000000]        Selection.Font.Color = wdColorBlue [/color]
[color=000000]        Selection.TypeText Text:=" <- " & strfont [/color]
[color=000000]        Selection.Font.Color = wdColorAutomatic [/color]
[color=000000]        Selection.TypeParagraph [/color]
[color=000000]    [/color][color=000080]Next [/color][color=000000]strfont _
  [/color]
[color=000080]End Sub [/color]

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...