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

The 30 best TV shows on Netflix UK: Our pick of the best programmes you can watch right now

IDG UK Sites

Nostalgia time: Top 10 best selling mobile phones in history

IDG UK Sites

VFX Emmy: Game of Thrones work garners gong for Rodeo FX

IDG UK Sites

Apple 13-inch MacBook Pro with Retina review (2.6GHz, 128GB, mid-2014)