On Fri, 12 Aug 2005 09:31:06 -0400, MLH wrote:
This is NOT of paramount importance. I'm sure there are others
whose questions are mission critical. Mine is not.
I have always wanted a report that looked like this...
Here is some sample text in Alba.
Here is some sample text in Alba Matter.
Here is some sample text in Alba Super.
...
Here is some sample text in Times New Roman
...
Here is some sample text in ZapfDingbats BT
Here is some sample text in ZapfEllipt BT
Here is some sample text in ZapfEllipt BT
Of course, what I want is to recurse through all the available
font types I have, printing a line in each of the fonts. This is
nothing more than to have a quick glance at printed fonts,
as they look right out-a-my printer tray.
Thought maybe one of you might have done this before.
Can you do it using Word?
Create a new Word document.
Click on Tools + Macro + Record New Macro
When the new macro dialog opens write
ListFont
as the Macro Name.
Click OK.
Type any few characters then click the Stop Macro button.
Click on Tools + Macro
Select the ListFont macro + Edit
Delete ALL the existing text of the macro.
Copy and paste the following code:
Sub ListFont()
'
' Will display all fonts available on your computer
'
Dim ListFont as Variant
Application.ScreenUpdating = False
Documents.Add Template:="normal"
For Each ListFont in FontNames
With Selection
.Font.Name = "Arial"
.Font.Size = 12
.TypeText ListFont
.TypeText Text:=Chr(11)
.Font.Name = ListFont
.TypeText "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
.TypeText Text:=Chr(11)
.TypeText "abcdefghijklmnopqrstuvwxyz"
.TypeText Text:=Chr(11)
.TypeText Text:="1234567890!@#$%^&*()"
.TypeText Text:=Chr(11)
.InsertParagraphAfter
.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove
End With
Next ListFont
Selection.WholeStory
Selection.Sort
Selection.HomeKey Unit:=wdStory
End Sub
=========
Save the macro change and exit back to your document.
Click Tools + Macro
Select the ListMacro
Click Run.
--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.