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

iPhone 6 vs Samsung Galaxy S5 comparison review: Apple takes on Samsung once again in smartphone...

IDG UK Sites

Just another opinion about Apple's new iPhone

IDG UK Sites

Intel Xeon E5 v3 Haswell processors review: we check out the fastest chips on the planet

IDG UK Sites

Apple Watch hands-on review | Apple Watch design, spec, features & UK pricing