[mso] Re: Printing all Installed Fonts
- From: "Greg Chapman" <greg@xxxxxxxxxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Sun, 21 Sep 2003 11:04:49 -0500
Sure, you could set the fotn to Tahoma, Arial, whatever you like and use
that font to spell out the name, THEN give the example. Using your code:
Sub PrintAllColinsFonts()
For Each InstalledFont In FontNames
With Selection
.Font.Name = "Tahoma"
.TypeText Text:= _
InstalledFont & vbTab
.Font.Name = InstalledFont
.TypeText Text:= _
InstalledFont & vbTab
.TypeText Text:= _
"The quick brown fox jumps " & _
"over the lazy dog.0123456789"
.TypeText Text:=vbCrLf
End With
Next InstalledFont
'Sort list in alpha order, then set tabs
'& font size
Selection.WholeStory
Selection.Sort
Selection.ParagraphFormat. _
TabStops.Add _
Position:=CentimetersToPoints(7)
With Selection.Font
.Name = ""
.Size = 12
End With
Selection.HomeKey
Selection.Delete
End Sub
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 Behalf Of Colin
> Sent: Sunday, September 21, 2003 4: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
> *************************************************************
>
> ----------------------------------------------------
> This message has been processed by Firetrust Benign.
>
*************************************************************
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
*************************************************************
Other related posts:
