Selecteer het tabblad "Ontwikkelaar " . Als je het niet kunt vinden , klikt u op de Office -knop en vervolgens " Opties voor Word , " dan " Popular ", en vink " Tabblad Ontwikkelaars op het lint . ' Kopen van 2

Klik op " Macro's . " Typ een naam voor uw macro - iets als " Overzicht fonts " passend zou zijn , maar je kunt het noemen wat je wilt . Selecteer " Normal.dotm " van de " Macro's in " lijst op de macro beschikbaar , ongeacht wat document dat u aan het bewerken bent te maken. Klik ten slotte op "Create " om het Visual Basic Editor .
3

Kopieer het geheel van de volgende code , te beginnen met de lijn " Sub ListFonts ( ) " en eindigend met " End sub " en plak het in uw Visual Basic Editor : .

sub ListFonts (
)

Dim varFont
als Variant

' Snelheden macro verwerking en onderdrukt weergave

Application.ScreenUpdating = False

' nieuw document creëren

Documents.Add Template
: . = "normal "

' Doorloop elke beschikbare lettertype

voor Elke varFont In FontNames

Met Selection

' Opmaak voor de naam van het lettertype .

. Font.Name = " Times New Roman "

. Font.Bold = True

. Font.Underline = True

' Insert naam Font .

. TypeText varFont

' Steek na het een nieuwe paragraaf . . . . lettertype

InsertParagraphAfter

' Verplaatsen naar de nieuwe paragraaf

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

' Formaat voor het lettertype bijvoorbeeld .

. = False

. Font.Underline = False

. Font.Name = varFont

'Enter voorbeeldtekst ( alfabetische tekens . ) op Twitter

. TypeText " abcdefghijklmnopqrstuvwxyz "

' Voeg een nieuwe paragraaf .

. InsertParagraphAfter

' Verplaatsen naar de nieuwe paragraaf

MoveDown unit bestellen: . . = wdParagraph , Count: = 1 , Extend : . = wdMove

' Insert voorbeeld tekst ( . Numerieke tekens ) op Twitter

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

' Plaats twee nieuwe leden en naar beneden .

. InsertParagraphAfter

. . InsertParagraphAfter

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

End met

Volgende varFont

Application.ScreenUpdating = True

End Sub

Zorg ervoor dat deze gekopieerde code vormt de volledige inhoud van de macro - een code die er was om te beginnen met verwijderen . Klik op alle " OK " knoppen om de creatie van uw macro voltooien
4

Klik met de rechtermuisknop op de werkbalk Snelle toegang - . De set pictogrammen net rechts van de Office -knop die onder andere " Save " en " Open . " Klik op " Werkbalk Snelle toegang aanpassen . "
5

Selecteer " Macro's " uit de " Kies opdrachten uit " pull - down menu , selecteer vervolgens de macro die u zojuist gemaakt uit de lijst die verschijnt . Klik op ' Toevoegen '.
6

Klik op " Wijzigen" om een ​​afbeelding voor de knop te selecteren , en klik op ' OK '. Een nieuwe knop verschijnt nu in de werkbalk Snelle toegang , klikt wordt er een nieuw Word-document en vul het met een monster van elk beschikbaar lettertype . U kunt vervolgens afdrukken dat document als u elke andere .