We use cookies to provide you with a better experience. If you continue to use this site, we'll assume you're happy with this. Alternatively, click here to find out how to manage these cookies

hide cookie message
Contact Forum Editor

Send an email to our Forum Editor:


PLEASE NOTE: Your name is used only to let the Forum Editor know who sent the message. Both your name and email address will not be used for any other purpose.

Windows Help


It's free to register, to post a question or to start / join a discussion


 

List Fonts macro


bjantbear

Likes # 0

Many years ago there was a macro that could be installed on Word and was used to print off all the fonts on a PC to show what each of them looked like (capitals and lower case) before you chose one. Is there still a macro similar to this that can be used with Vista, please? and if so how do I get it and install it?

Like this post
bjantbear

Likes # 0

I have found the following macro on another site.

It lists the fonts as I want them but it does not do so alphabetically.

What do I need to add to make it do so, please?

Sub Fonts() Dim listFont As Variant 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 "1234567890!@#$%^&*()" .TypeText Text:=Chr(11) .InsertParagraphAfter .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove End With Next listFont End Sub

Like this post

Reply to this topic

This thread has been locked.



IDG UK Sites

3 of the best portable chargers: a solar power charger, a hand-cranked charger, and how to charge...

IDG UK Sites

iOS 8 review: Hands on with the iOS 8 beta

IDG UK Sites

Thinking robots: The philosophy of artificial intelligence and evolving technology

IDG UK Sites

Sharknado 2 VFX: how The Asylum created CG flying man-eating sharks