Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
stargazer
 
Posts: n/a
Default How do I print a list of font names installed on my computer?

I would like to print a list of NAMES ONLY of the fonts installed on my
computer. (I need to compare fonts between two computers and don't want to
handwrite the names of all the fonts in the directory. I don't want SAMPLES
of the fonts, just a LIST of the names. I can't figure out how to do it.
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Sarah_Lecturer
 
Posts: n/a
Default How do I print a list of font names installed on my computer?

Try and download DD FileCatcher from www.soft32.com/download_6087.html and
copy the file names from Start, Control Panel,(Appearance and Themes) Fonts
onto the clipboard and paste into word...

Hope this helps

Sarah

"stargazer" wrote:

I would like to print a list of NAMES ONLY of the fonts installed on my
computer. (I need to compare fonts between two computers and don't want to
handwrite the names of all the fonts in the directory. I don't want SAMPLES
of the fonts, just a LIST of the names. I can't figure out how to do it.

  #3   Report Post  
Posted to microsoft.public.word.docmanagement
Steve Yandl
 
Posts: n/a
Default How do I print a list of font names installed on my computer?

Sub FontNameList()
Dim vFontName As Variant

Documents.Add

For Each vFontName In FontNames
Selection.TypeText vFontName
Selection.TypeParagraph
Next vFontName

End Sub


Steve Yandl



"stargazer" wrote in message
...
I would like to print a list of NAMES ONLY of the fonts installed on my
computer. (I need to compare fonts between two computers and don't want
to
handwrite the names of all the fonts in the directory. I don't want
SAMPLES
of the fonts, just a LIST of the names. I can't figure out how to do it.



  #4   Report Post  
Posted to microsoft.public.word.docmanagement
Steve Yandl
 
Posts: n/a
Default How do I print a list of font names installed on my computer?

If you use the subroutine I just posted above, you will probably want to
treat the column of names as a table and do a sort so the list is
alphabetical and easier to compare to other lists. An alternate approach
would be to use the sub below which will give you a sorted list in a single
step.

Sub FontNameListSorted()

Const adVarChar = 200
Const MaxCharacters = 255

Dim vFontName As Variant

Documents.Add

Set DataList = CreateObject("ADOR.Recordset")
DataList.Fields.Append "FontNames", adVarChar, MaxCharacters
DataList.Open

For Each vFontName In FontNames
DataList.AddNew
DataList("FontNames") = vFontName
DataList.Update
Next vFontName

DataList.Sort = "FontNames"

DataList.MoveFirst
Do Until DataList.EOF
Selection.TypeText DataList.Fields.Item("FontNames")
Selection.TypeParagraph
DataList.MoveNext
Loop

End Sub


Steve Yandl
"stargazer" wrote in message
...
I would like to print a list of NAMES ONLY of the fonts installed on my
computer. (I need to compare fonts between two computers and don't want
to
handwrite the names of all the fonts in the directory. I don't want
SAMPLES
of the fonts, just a LIST of the names. I can't figure out how to do it.



  #5   Report Post  
Posted to microsoft.public.word.docmanagement
Greg
 
Posts: n/a
Default How do I print a list of font names installed on my computer?

Steve,

Spoke too soon. Your method works perfectly. Thanks.

Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
where is the Helvetica font? Valerie Microsoft Word Help 3 April 28th 23 02:52 AM
How to make list of names & addresses to list of mailing labels? Charles McInnis Microsoft Word Help 1 June 27th 05 02:38 AM
display one font color on the monitor but print in another lmf001 Microsoft Word Help 1 June 7th 05 03:46 AM
Add contacts to "Select Names" list Old Shrimp Microsoft Word Help 1 April 30th 05 01:29 AM
in Word, how to access an installed font not showing in the list? Ron Finney Microsoft Word Help 2 January 14th 05 04:56 AM


All times are GMT +1. The time now is 12:06 PM.

Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright 2004-2023 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"