Did you ever want to see all the fonts that you have installed displayed in Word with some sample text? No, well I did and I didn’t feel like doing it manually. I’m sure there is some font program that already does this, but wanted to be able to run a simple macro each time rather than having to install something.<\/p>\n
Anyway, after an hour or so, I came up with the following:<\/p>\n
[code]
\nDim allfonts(400) As String
\nDim thefont As String<\/p>\n
Set fontlist = Application.CommandBars(“Formatting”).FindControl(ID:=1728)<\/p>\n
‘ If Font control is missing, create a temp CommandBar
\nIf fontlist Is Nothing Then
\n Set TempBar = Application.CommandBars.Add
\n Set fontlist = TempBar.Controls.Add(ID:=1728)
\nEnd If<\/p>\n
For i = 0 To fontlist.ListCount – 1
\n thefont = fontlist.List(i + 1)
\n ‘Selection.TypeText Text:=thefont & vbNewLine
\n allfonts(i) = thefont
\nNext i<\/p>\n
‘ Delete temp CommandBar if it exists
\nOn Error Resume Next
\nTempBar.Delete<\/p>\n
For y = 1 To UBound(allfonts)<\/p>\n
Selection.Font.Name = “Arial”
\nSelection.TypeText Text:=allfonts(y) & vbNewLine
\n‘ If youre going to type in Japanese, use this
\nApplication.Keyboard (1041)
\nSelection.Font.Name = allfonts(y)
\nSelection.TypeText Text:=”The quick brown fox did his thing”<\/p>\n
Selection.EndKey Unit:=wdLine
\nSelection.HomeKey Unit:=wdLine, Extend:=wdExtend<\/p>\n
‘Selection.Font.Name = allfonts(y)
\n‘Selection.TypeParagraph
\nSelection.EndKey Unit:=wdLine
\nSelection.TypeText Text:=vbNewLine & vbNewLine<\/p>\n
Next y
\n[\/code]<\/p>\n
Seems to work pretty well.<\/p>\n
[b]Edit:[\/b] My real imepetus for doing this was to view all the Japanese fonts that I have installed with something typed in Japanese and styled with the appropriate font. My lovely and smart wife pointed out that you can go to your fonts folder and click on any of the installed fonts to see what the font looks like.<\/p>\n","protected":false},"excerpt":{"rendered":"
Did you ever want to see all the fonts that you have installed displayed in Word with some sample text? No, well I did and I didn’t feel like doing it manually. I’m sure there is some font program that … Continue reading