How to a font list in the year 2007 print ...

id = 'IntelliTXT "> <p Very early versions of Microsoft Word includes a feature that has generated a printable list of all available fonts of the program. ... .This feature was not in default in Word for many years, but it is possible to use Microsoft Office Word 2007 Macro coding options to add yourself. ... .It's a little programming with Visual Basic, but fortunately the Microsoft Web site offers already written VB code to exactly what to do </ p> difficulty. .. <h2 Moderately easy class="Heading1a Underline header"> instructions <ol id='intelliTxt'> <li .id = 1 "jsArticleStep1"> <p> Select the tab " .Developer Tools .. ... .If you do not find, click the Office button and then click Word Options "and" popular "and check" Show Developer tab in the Ribbon. "</ P> <li .. id = "jsArticleStep2"> 2 <p .> click Macros. ... .Enter a name for the macro - would be something like "Font List" attached, but you can call it what you want. ... .Select Normal.dotm independent process from the "Macros in" list to your macro available in the document. ... .Finally, click on "Create" to the Visual Basic editor. .. </ P> <li id="jsArticleStep3"> 3 <p> Copy the entire code below, beginning with "Under list fonts ()" and ending line. .With and paste it into your Visual Basic Editor "End Sub." Fonts Sub list () Dim varFont this variant speeds "macro processing and display deleted. ... .Create a new document Application.ScreenUpdating = False '. ... .Documents.Add Template: = "normal" 'Loop through all available font. ... .For each font name in varFont with format selection is the name of the font. .... .. Font.Name = "Times New Roman". .. Font.Bold = True. .. Font.Underline = True 'Insert Font name. .... .. VarFont type text Insert a new paragraph after the name of the font. .... .. Insert after paragraph 'to move the new paragraph. .... .. MoveDown Unit: = wdParagraph, Count: = 1, Extend: = wdMove "format for the example of the police. .... .. Font.Bold = False. .. Font.Underline = False. .. For example, enter text (letters). .. TypeText "abcdefghijklmnopqrstuvwxyz" '= Font.Name varFont inserting a new paragraph. .... .. Insert after paragraph 'to move the new paragraph. .... .. MoveDown Unit: = wdParagraph, Count: = 1, Extend: = wdMove. .. Insert sample text (. Numeric characters) TypeText 0123456789 ?$%&()[]*_-=+/<>"". .Insert two new paragraphs and move down. ..... .. Insert paragraph after paragraph insert after MoveDown Unit: = wdParagraph, Count: = 1, Extend: = End With Next Application.ScreenUpdating = varFont wdMove TrueEnd SubMake this code makes you copied the contents of the macro - remove all code was. ... .He began. ... .To all "OK" to create the macro </ p> <li click id="jsArticleStep4"> <p> 4 of the right mouse button on the toolbar for quick access - .. .. The set of symbols on the right. .Office Button, which include "Save" and "Open". ... ."Customize Quick Access Toolbar." On </ P> <li id="jsArticleStep5"> <p> 5 Select "Macros" Click the "Choose commands" menu. List ., select the macro you just in the list. .that appears. ... .Click Add. .. </ P> <li id="jsArticleStep6"> 6 <p> Click "Edit" to select an image for the button, then click "OK". ... .A new button on the toolbar for quick access, click on it will create a new Word document and fill it with a sample of each available font. ... .You can then print the document like any other. .. </ P> ...