Meget tidlige versioner af Microsoft Word indeholdt en funktion, der genererede en printbar liste over alle programmets tilgængelige skrifttyper . Denne funktionalitet har ikke været i Word i misligholdelse i mange år, men det er muligt at bruge Microsoft Office Word 2007 s makro kodning muligheder for at tilføje det selv . Det indebærer en lille Visual Basic programmering, men heldigvis Microsofts hjemmeside giver prewritten VB kode til at gøre netop dette. Instruktioner
1

Vælg " Udvikler "-fanen . Hvis du ikke kan finde det , skal du klikke på Office-knappen og derefter på " Word-indstillinger " og derefter "Popular ", og marker " Vis fanen Udvikler på båndet. "
2

Klik på " makroer ". Skriv et navn til din makro - noget som " Liste Fonts " ville være passende, men du kan kalde det hvad du vil . Vælg " Normal.dotm " fra " makroer I " listen for at gøre din makro til rådighed , uanset hvilken dokument, du redigerer. Endelig skal du klikke på "Opret" for at opdrage den Visual Basic Editor.
3

Kopier hele den følgende kode , der begynder med linjen " Sub ListFonts ( )" og slutter med "Slut sub " og indsæt det i din Visual Basic Editor : .

sub ListFonts ()

Dim varFont Som Variant

' Hastigheder makrobehandlings og undertrykker display
< p > Application.ScreenUpdating = False

'Opret nyt dokument

Documents.Add Skabelon: . = "normal "

' Loop igennem hver tilgængelig font
< p . > for Each varFont i FontNames

Med Selection

' Format til navn på skrift .

. Font.Name = " Times New Roman "

. Font.Bold = Sand

. Font.Underline = Sand

' Insert Font navn.

. TypeText varFont

' Indsæt et nyt afsnit efter . . . . fontnavn

InsertParagraphAfter

'Flyt til det nye stk

MoveDown enhed: = wdParagraph , Count: = 1, Extend : = wdMove
< p > ' Format til skrifttypen eksempel.

. Font.Bold = False

. Font.Underline = False

. Font.Name = varFont
< p > ' Indtast eksempel tekst ( alfabetiske tegn . )

. TypeText " abcdefghijklmnopqrstuvwxyz "

' Indsæt et nyt afsnit.

. InsertParagraphAfter

' Flyt til det nye stk

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

' Insert eksempel tekst ( . Numeriske tegn)

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

' Sæt to nye stykker og flytte ned .

. InsertParagraphAfter

. . InsertParagraphAfter

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

End With

Næste varFont

Application.ScreenUpdating = Sand

End Sub

Sørg for, at dette kopierede kode gør op hele indholdet af din makro - slet nogen kode , der var der til at begynde med . Klik alle " OK " for at fuldføre oprettelsen af ​​din makro
4

Højreklik på værktøjslinjen Hurtig adgang - . Det sæt af ikoner lige til højre for Office -knappen , der omfatter "Gem "og" Open ". Klik på " Tilpas værktøjslinjen Hurtig adgang . "
5

Vælg " makroer" fra " Vælg kommandoer fra " pull -down menu , vælg derefter den makro, du lige har lavet den liste, der vises. Klik på "Tilføj ".
6

Klik "Rediger " for at vælge et billede til knappen , og klik derefter på "OK". En ny knap vises nu i værktøjslinjen Hurtig adgang , klikke på det vil skabe et nyt Word-dokument og fyld den med en prøve af alle tilgængelige skrifttype. Du kan derefter udskrive dokumentet , som du ville enhver anden .