font catalog

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is it possible to print out my font list, where each name is printed in its
own font? I'd like to have it on a paper copy, so I don't have to scroll
down & look through the list each time I use it. Does anyone know how?
Otherwise, I'll have type each font name & manually change them all.
 
Here's a macro that does it:


' ------------------------------------------------
' Create Font Sheet
'
' Creates a new document containing a list of
' fonts, each set in its own font
'
Sub CreateFontList()

Dim pDoc As Word.Document
Dim pIndex As Long

'Create the document
Set pDoc = Documents.Add

'Iterate the application fonts
For pIndex = 1 To FontNames.Count
pDoc.Content.InsertAfter FontNames(pIndex)
pDoc.Content.InsertParagraphAfter
pDoc.Paragraphs(pDoc.Paragraphs.Count - 1).Range.Font.Name =
FontNames(pIndex)
Next

'Sort the list
pDoc.Content.Sort ExcludeHeader:=False, _
FieldNumber:="Paragraphs", _
SortFieldType:=wdSortFieldAlphanumeric, _
SortOrder:=wdSortOrderAscending, _
Separator:=wdSortSeparateByTabs, _
SortColumn:=False, _
CaseSensitive:=False

MsgBox "Finished"

End Sub
 
Back
Top