i have one word and i want to get it written in all available fonts , how can i do this ?

[john65442]

Hi:-
i have one word
and i want to get a list of the same word written in all fonts
how can i get it ?can i get it on word document ?
(please notice that i have a large set of fonts installed in my word document)
Thank you

 

[Macropod]

You can use a macro like the following:

Sub ListFonts()
  Dim ListFont as Variant
    Application.ScreenUpdating = False
    For Each ListFont in Fontnames
      With Selection
        .Font.Name = ListFont
        .Font.Size = 12
        .TypeText ListFont
        .TypeText Text := Chr(11)
        .TypeText = InputBox("What is the text to replicate?")
        .TypeText Text := Chr(11)
        .InsertParagraphAfter
        .Movedown Unit := wdParagraph, Count := 1, Extend := wdMove
      End With
    Next ListFont
End sub

 

[john65442]

i do not know how to insert this code in to the document . could you please tel me how to use? it because i am a complete beginner i know nothing about macros
in which kind of document should i put it ? in excel document or in word document ?

 

[Macropod]

See: http://www.gmayor.com/installing_macro.htm
You asked:

can i get it on word document ?

so that's what I coded for.