Except you haven't fixed your text codes (as Greg was teaching folks to do) so all your code sample came through with a pile of =3Ds in it. If someone tries to run it without cleaning it up...it'll crash all over the place! Dian D. Chapman Technical Consultant, Microsoft MVP & Instructor Free Tutorials: www.mousetrax.com/techtrax Free Word Tips & Tricks eBook: www.mousetrax.com/books.html Learn VBA the easy way, thru video! www.mousetrax.com/techcourses.html -----Original Message----- From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf Of Colin Sent: Sunday, September 21, 2003 3:24 AM To: mso@xxxxxxxxxxxxx Subject: [mso] Re: Printing all Installed Fonts I found that piece of code very useful. I've used it as the basis for the code below which prints all the = characters for each font in a nice list. For Each InstalledFont In FontNames With Selection .Font.Name =3D InstalledFont .TypeText Text:=3DInstalledFont .TypeText Text:=3DvbTab .TypeText Text:=3D"The quick brown fox jumps over the lazy dog. 0123456789" .TypeText Text:=3DvbCrLf End With Next InstalledFont 'Sort list in alpha order, then set tabs & font size Selection.WholeStory Selection.Sort Selection.ParagraphFormat.TabStops.Add = Position:=3DCentimetersToPoints(7) =20 With Selection.Font .Name =3D "" .Size =3D 12 End With =20 Selection.HomeKey Selection.Delete End Sub **************************************** Colin McDonald colinmac@xxxxxxxxxxxxxxxx **************************************** -----Original Message----- From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On = Behalf Of Greg Chapman Sent: 21 September 2003 04:27 To: mso@xxxxxxxxxxxxx Subject: [mso] Re: Printing all Installed Fonts The Word object model has a collection for the installed fonts. So you = can cycle through each installed font and print a line using that font. = Here's an example: = '=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Sub PrintAllFonts() Dim TheseFonts For Each InstalledFont In FontNames With Selection .Font.Name =3D InstalledFont .TypeText Text:=3DInstalledFont .TypeText Text:=3DvbCrLf End With Next InstalledFont End Sub '=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Greg Chapman http://www.mousetrax.com "Counting in binary is as easy as 01, 10, 11! With thinking this clear, is coding really a good idea?" > -----Original Message----- > From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On=20 > Behalf Of Christine > Sent: Saturday, September 20, 2003 6:17 PM > To: mso@xxxxxxxxxxxxx > Subject: [mso] Printing all Installed Fonts > > > Someone once showed me how to print, in Word, all the installed > fonts=20 but of course, I can't remember how. Anyone know how to do this? > Thanks > > Christine > ************************************************************* You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx = or MicrosoftOffice@xxxxxxxxxxxxxxxx To send mail to the group, simply address it to mso@xxxxxxxxxxxxx To Unsubscribe from this group, send an email to=20 mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the = quotes) in the subject line. Or, visit the group's homepage and use the dropdown menu. This will = also allow you to change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso To be able to use the files section for sharing files with the group, = send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an = invitation with instructions. Once you are a member of the files group, you can go here to upload/download files: http://www.smartgroups.com/vault/msofiles ************************************************************* ************************************************************* You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or MicrosoftOffice@xxxxxxxxxxxxxxxx To send mail to the group, simply address it to mso@xxxxxxxxxxxxx To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in the subject line. Or, visit the group's homepage and use the dropdown menu. This will also allow you to change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso To be able to use the files section for sharing files with the group, send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with instructions. Once you are a member of the files group, you can go here to upload/download files: http://www.smartgroups.com/vault/msofiles ************************************************************* ************************************************************* You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or MicrosoftOffice@xxxxxxxxxxxxxxxx To send mail to the group, simply address it to mso@xxxxxxxxxxxxx To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in the subject line. Or, visit the group's homepage and use the dropdown menu. This will also allow you to change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso To be able to use the files section for sharing files with the group, send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with instructions. Once you are a member of the files group, you can go here to upload/download files: http://www.smartgroups.com/vault/msofiles *************************************************************