[mso] Re: Printing all Installed Fonts
- From: "Colin" <colin.mac@xxxxxxxxxxxxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Sun, 21 Sep 2003 11:01:14 +0100
Greg
Is there a way to identify which fonts are "Symbol" fonts.
The name of the font appears fine except for those "symbol" ones, where =
of
course the name of the font is unreadable.
I've only got about six on my system, but of course I could add more in =
the
future. So I'd like to know if I could test for a "symbol" font, and if =
so,
change the font for the FontName to a Readable one.
Thanks
Colin
****************************************
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
*************************************************************
Other related posts:
