Veldig tidlige versjoner av Microsoft Word inneholdt en funksjon som genererte en utskriftsvennlig liste over alle programmets tilgjengelige skrifter . Denne funksjonaliteten har ikke vært i Word misligholdt i mange år , men det er mulig å bruke Microsoft Office Word 2007 makro koding alternativer for å legge det selv. Det innebærer litt Visual Basic programmering, men heldigvis Microsofts nettside gir forhåndsskrevet VB kode for å gjøre akkurat dette . Instruksjoner
en

Velg " Utvikler " fanen . Hvis du ikke finner den, klikker du på Office-knappen , deretter " Alternativer for Word " og deretter " Popular ", og kryss av " Vis kategorien Utvikler på båndet . "
2

Klikk " makroer ". Skriv inn et navn for makroen - noe sånt som " List Fonts " ville være hensiktsmessig, men du kan kalle det hva du vil. Velg " Normal.dotm " fra " makroer i " liste for å gjøre din makro tilgjengelig uansett hva dokumentet du redigerer. Til slutt klikker "Create" for å få opp Visual Basic Editor .
3

Kopier helheten av følgende kode , som begynner med linjen "Sub ListFonts ( )" og slutter med " End sub " og lim den inn i Visual Basic-redigering : .

Gå ListFonts ()

Dim varFont Som Variant

' Hastigheter makro prosessering og undertrykker skjerm
< p > Application.ScreenUpdating = False

"Opprett nytt dokument

Documents.Add Mal: . =" normal "

' Loop gjennom alle tilgjengelige font
< p . > for Hver varFont i FontNames
p Med Selection

' Format for navnet på skriften.

. Font.Name = " Times New Roman "

. Font.Bold = sant

. Font.Underline = sant

'Sett Font navn.

. TypeText varFont

' Sett inn et nytt avsnitt etter . . . . Font Name

InsertParagraphAfter

'Flytt til nytt avsnitt

MoveDown enhet: = wdParagraph , Count: = 1 , Extend : = wdMove
< p > ' Format for skriften eksempel.

. Font.Bold = False

. Font.Underline = False

. Font.Name = varFont
< p > 'Skriv eksempel tekst ( Alfabetisk tegn. )

. TypeText " abcdefghijklmnopqrstuvwxyz "

' Sett inn et nytt avsnitt .

. InsertParagraphAfter

"Flytt til det nye avsnittet

MoveDown enhet: . . = wdParagraph , Count: = 1 , Extend : . = wdMove

' Insert eksempel tekst ( . Numeriske tegn)

TypeText " 0123456789 ? $% & ( ) [ ] * _- = + /< > "

'Sett inn to nye avsnitt og flytte ned .

. InsertParagraphAfter

. . InsertParagraphAfter

MoveDown enhet: = wdParagraph , Count: = 1 , Extend : = wdMove

End With

Neste varFont

Application.ScreenUpdating = sant

End Sub

Kontroller at dette kopiert koden gjør opp hele innholdet i makroen - slette koden som var der til å begynne med . Klikk alle " OK" for å fullføre opprettelsen av makroen
4

Høyreklikk på verktøylinjen for hurtigtilgang - . Settet med ikoner bare til høyre for Office- knappen som inkluderer " Lagre "og" Åpne ". Klikk på " Tilpass verktøylinje for hurtigtilgang . "
5

Velg " Makroer " fra " Velg kommandoer fra " pull -down menyen og velg makroen du nettopp laget fra listen som vises. Klikk på " Legg til".
6

Klikk på "Endre " for å velge et bilde for på-knappen, og klikk "OK". En ny knapp vises nå i verktøylinjen for hurtigtilgang , klikke det vil skape et nytt Word-dokument og fylle det med en prøve av alle tilgjengelige skrift. Du kan deretter skrive ut dokumentet på samme måte som alle andre.