TGSinMD said:
Nope. All of these methods only copy the file name and not the font name.
Karen's font explorer allows you to print out samples of each font but not a
list of all fonts. Seems that this is impossible. Probably could throw some
money at it and find a solution but for right now I will just type them in by
hand.
Thanks for all your suggestions!
There is a round about way to do this. WordPerfect has a built-in macro named
Allfonts, and ListFonts is available for Word from
http://support.microsoft.com/kb/q209205/ Each does the same thing: produces a
document that includes the name of each font and below that a sample of text in
that font.
All you have to do is modify the macro to eliminate the code that causes the font
samples to be printed, and you end up with a document that contains a list of the
fonts -- by font name, not file name.
The Word macro at the KB article above is pretty well commented, and modifying it
looks quite straightforward. The following ought to do the trick for you (but I
haven't tested it):
Sub ListFonts()
Dim varFont As Variant
' Speeds macro processing and suppresses display.
Application.ScreenUpdating = False
' Create new document.
Documents.Add Template:="normal"
' Loop through each available font.
For Each varFont In FontNames
With Selection
' Format for name of font.
.Font.Name = "times new roman"
' Insert Font name.
.TypeText varFont
' Insert a new paragraph after the Font Name.
.InsertParagraphAfter
' Move to the new paragraph.
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
End With
Next varFont
Application.ScreenUpdating = True
End Sub