Public Sub TestFontova()
' makro by Dragan Grbić
' po motivima WordBasic makroa autora D. Vračara

' formiranje uzoraka
t1 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG" + vbCrLf
t2 = "the quick brown fox jumps over the lazy dog" + vbCrLf
t3 = "ŠšĐđČčĆ掞 _ 0123456789 _ (!@#,.$%^?) +-*= ;:,." + vbCrLf
uzorak = t1 + t2 + t3

Selection.Font.Size = 12

For Each aFont In FontNames
    With Selection
    .Font.Name = "Arial"
    .TypeText Text:=vbCrLf + aFont + ":" + vbCrLf
    .Font.Name = aFont

    ' tri veličine uzorka
    For i = 8 To 12 Step 4
        .Font.Size = i
        .TypeText Text:=uzorak
    Next
    End With

    If response = vbCancel Then Exit For
Next aFont

End Sub