:: Mostrare tutti i font installati ::

Con questa macro, usando Microsoft Word, potete visualizzare tutti i font installati sul vostro computer, avendo così la possibilità di stamparli.

Istruzioni:
Entrate in Microsoft Word, cliccate su Strumenti e su Macro.
Nella finestra che si apre cliccate su Crea.
Vi si aprirà il programma Visual Basic, copiate il testo qui sotto al suo interno.

'Loop throught each available font. For Each varFont In FontNames With Selection 'Format for name or font. .Font.Name = "times new roman" .Font.Bold = True .Font.Underline = True 'Insert Font name. .TypeText varFont 'Insert a new paragraph after the Font Name. .InsertParagraphAfter 'Move to the new paragraph. .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove 'Format for the font example. .Font.Bold = False .Font.Underline = False .Font.Name = varFont 'Enter example text(Alphabetic characters.) .TypeText "abcdefghijklmnopqrstuvwxyz" 'Insert a new paragraph. .InsertParagraphAfter 'Move to the new paragraph. .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove 'Insert example text(Numeric characters.) .TypeText "0123456789?$%&()[]*_-=+/<>" 'Insert two new paragraphs and move down. .InsertParagraphAfter .InsertParagraphAfter .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove End With Next varFont Application.ScreenUpdating = True

Chiudete Visual Basic e tornate a Word.
Cliccate nuovamente su Strumenti e su Macro, selezionate la macro appena creata e cliccate su Esegui.

Potete scaricare il testo della macro cliccando qui.