Mycket tidiga versioner av Microsoft Word innehåller en funktion som genererade en utskrivbar lista över programmets samtliga tillgängliga teckensnitt . Denna funktion har inte varit i Word i standard under många år , men det är möjligt att använda Microsoft Office Word 2007 : s makro kodning alternativ för att lägga till det själv . Det innebär en liten Visual Basic -programmering , men lyckligtvis Microsofts webbplats ger färdigskriven VB kod för att göra just detta . Instruktioner
1
Välj " Utvecklare " fliken . Om du inte kan hitta den, klicka på Office- knappen och sedan " Word-alternativ " och sedan " Popular " och markera " Visa fliken Utvecklare i menyfliksområdet . "
2
Klicka på " Makron . " Skriv ett namn på ditt makro - något som " Lista teckensnitt " skulle vara lämpligt , men du kan kalla det vad du vill . Välj " Normal.dotm " från " makron I " lista för att göra din makrot tillgängligt oavsett vad dokument du redigerar . Slutligen , klicka på " Skapa " för att få upp Visual Basic Editor .
3
Kopiera hela den följande kod , som börjar med raden " Sub ListFonts ( ) " och slutar med " End sub " och klistra in den på din Visual Basic Editor : .
sub ListFonts ( ) katalog
Dim varFont As Variant
" hastigheter makrobearbetningsspråk och undertrycker display
Application.ScreenUpdating = False
"Skapa nytt dokument
Documents.Add Mall : . = " normal "
' Loop genom varje tillgänglig font
< p . > för varje varFont i FontNames
Selection
" Format för namnet på teckensnittet .
. Font.Name = " Times New Roman "
. Font.Bold = Sant
. Font.Underline = Sant
' namn Infoga Font .
. TypeText varFont
" Infoga ett nytt stycke efter . . . . font Name
InsertParagraphAfter
" Flytta till ny punkt
moveDown enhet : = wdParagraph , Count : = 1 , Extend : = wdMove
' Format för teckensnittet exempel .
. Font.Bold = False
. Font.Underline = False
. Font.Name = varFont
' Ange exempel text ( alfabetiska tecken. ) katalog
. TypeText " abcdefghijklmnopqrstuvwxyz "
" Infoga ett nytt stycke .
. InsertParagraphAfter
" Flytta till den nya punkten
moveDown enhet : . . = wdParagraph , Count : = 1 , Extend : . = wdMove
" Infoga exempel text ( . numeriska tecken ) katalog
TypeText " 0123456789 ? $ % & ( ) [ ] * _ - = + /< > "
' Sätt in två nya punkter och flytta ner .
. InsertParagraphAfter
. . InsertParagraphAfter
moveDown enhet : = wdParagraph , Count : = 1 , Extend : = wdMove
End With
Nästa varFont
Application.ScreenUpdating = Sant
End Sub
Kontrollera att det här kopierade koden gör upp hela innehållet i ditt makro - ta bort någon kod som var där för att börja med . Klicka på alla "OK" för att slutföra skapandet av ditt makro
4
Högerklicka på verktygsfältet Snabbåtkomst - . Den uppsättning ikoner precis till höger om Office-knappen som inkluderar " Spara " och " Öppna . " Klicka på " Anpassa verktygsfältet Snabbåtkomst . "
5
Välj " Makron " från " Välj kommandon från " pull -down menyn , välj sedan det makro du just gjorde i listan som visas . Klicka på " Lägg till ".
6
Klicka " Ändra " för att välja en bild för knappen , klicka sedan på " OK . " En ny knapp visas nu i verktygsfältet Snabbåtkomst , klicka på den kommer att skapa ett nytt Word- dokument och fylla den med ett urval av alla tillgängliga teckensnitt . Du kan sedan skriva ut det dokument som du skulle någon annan .
