Stampa di un elenco dei font

Nelle versioni precedenti di Word (molto più vecchio, come in Word per Windows 2), c'è stata una caratteristica che ha permesso di stampare rapidamente un elenco dei font sul vostro sistema. Purtroppo, che non è più il caso. La seguente macro VBA, tuttavia, creare un documento che contiene un elenco di caratteri completa, in modo ordinato:

ListAllFonts Sub ()
Dim J As Integer
Dim fonttable Come Table
'Inizia con un nuovo documento
Set newdoc = Documents.Add
'Aggiungi un tavolo e impostare l'intestazione della tabella
Set fonttable = NewDoc.Tables.Add (Selection.Range, FontNames.Count + 1, 2)
Con fonttable
.Borders.Enable = False
.Cell (1, 1) .Range.Font.Name = "Arial"
.Cell (1, 1) = 1 .Range.Font.Bold
.Cell (1, 1) .Range.InsertAfter "Nome Font"
.Cell (1, 2) .Range.Font.Name = "Arial"
.Cell (1, 2) = 1 .Range.Font.Bold
.Cell (1, 2) .Range.InsertAfter "Font Esempio"
End With
'Passare attraverso tutti i tipi di carattere e aggiungerli al tavolo
Per J = 1 Per FontNames.Count
Con fonttable
.Cell (J + 1, 1) .Range.Font.Name = "Arial"
.Cell (J + 1, 1) .Range.Font.Size = 10
.Cell (J + 1, 1) .Range.InsertAfter FontNames (J)
.Cell (J + 1, 2) .Range.Font.Name = FontNames (J)
.Cell (J + 1, 2) .Range.Font.Size = 10
.Cell (J + 1, 2) .Range.InsertAfter "ABCDEFG 1234567890 ABCDEFG"
End With
Successivo J
FontTable.Sort SortOrder: = wdSortOrderAscending
End Sub

Una volta che la macro è attraverso esecuzione, si avrà un elenco di font completo per il vostro sistema. È quindi possibile stamparlo e tenerlo a portata di mano quando si lavora con Word.

WordTips è la vostra fonte per la formazione Microsoft Word conveniente. (Microsoft Word è il più popolare software di elaborazione testi del mondo.) Questa punta (405) si applica a Microsoft Word 97, 2000, 2002, e 2003.