Nelle versioni precedenti di Word (molto più vecchie, come in Word per Windows 2), c’era una funzionalità che ti consentiva di stampare rapidamente un elenco di caratteri sul tuo sistema. Purtroppo non è più così. Puoi, tuttavia, creare abbastanza facilmente una macro che possa mettere insieme un tale elenco per te:

Sub ListFontNames()

Dim J As Integer     Dim NewDoc As Document

' Create a new document     Set NewDoc = Documents.Add

' Add font names to document     For J = 1 To FontNames.Count         Selection.TypeText (FontNames(J))

Selection.TypeParagraph     Next J End Sub

La macro crea un nuovo documento e quindi passa semplicemente attraverso la raccolta FontNames e aggiunge ciascuno dei nomi al documento. La velocità con cui funziona la macro dipende dal numero di caratteri installati sul sistema.

Se vuoi qualcosa di un po ‘più elaborato, potresti usare la seguente macro. Crea un documento, ma poi inserisce tutti i nomi dei caratteri in una tabella. Nella seconda colonna della tabella, fornisce un campione formattato del carattere.

Sub FontExamples()

Dim J As Integer     Dim F As Integer     Dim sTemp As String     Dim sTest As String     Dim Continue As Integer     Dim rng As Range     Dim FontTable As Table     Dim NewDoc As Document

' Specify the sample text for second column     sTest = "ABCDEFG abcdefg 1234567890"



' Check to see if the user wants to proceed     F = FontNames.Count     sTemp = "There are " & F & " fonts on this system."

sTemp = sTemp & "Building the document may take quite a while."

sTemp = sTemp & "Do you want to continue?"

Continue = MsgBox(sTemp, vbYesNo, "Build Font List")



If Continue = vbYes Then         ' Put together a string that contains the table contents         sTemp = "Font Name" & vbTab & "Font Example"

For J = 1 To F             sTemp = sTemp & vbCr & FontNames(J) & vbTab & sTest         Next J

' Create a new document         Set NewDoc = Documents.Add

' Add string contents and convert to table         Set rng = Selection.Range         rng.Text = sTemp         Set FontTable = rng.ConvertToTable(Separator:=vbTab, _           AutoFitBehavior:=wdAutoFitFixed)



' Set general table properties         With FontTable             .Borders.Enable = False             .Range.Font.Name = "Arial"

.Range.Font.Size = 10             .Rows(1).Range.Font.Bold = True             .Rows(1).Range.Font.Size = 12         End With

' Go through the sample cells and format them         For J = 1 To F             FontTable.Cell(J + 1, 2).Range.Font.Name = FontNames(J)

Next J

' Sort the table         FontTable.Sort SortOrder:=wdSortOrderAscending     End If End Sub

Questa macro fa molto di più della precedente. La tabella stessa viene creata piuttosto rapidamente, ma può richiedere molto tempo per passare in rassegna ciascuna delle celle di esempio e formattarla utilizzando il carattere appropriato. Questo è il motivo per cui la macro ti consente di sapere quanti caratteri ci sono sul tuo sistema prima di procedere.

Indipendentemente dalla macro che scegli di utilizzare, ti ritroverai con un elenco completo di caratteri per il tuo sistema. È quindi possibile stamparlo e tenerlo a portata di mano quando si lavora con Word.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (4358) si applica a Microsoft Word 2007, 2010, 2013 e 2016. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Word qui: Stampa di un elenco di caratteri.