Elenco font

Questo non è proprio uno script come la maggior parte degli altri pubblicati nel sito.

Si tratta piuttosto di una macro di word. Ciò non toglie che potrebbe essere scritta in forma di codice vbs, ma comunque sarebbe stato solo codice meno leggibile. Essendo la presenza di Word un prerequisito essenziale per il funzionamento del programma, l'ho scritto direttamente all'interno dell'applicativo.

Ho visto in giro, su internet, alcun programmi di svariati Megabyte che creano un elenco di tutti i tipi di carattere registrati in Windows. Può servire, ad esempio, per avere sott'occhio i vari font utilizzabili per redigere una presentazione.

Il grosso impegno tecnologico necessario per cercare tutti i font registrati e soprattutto per mostrarli in una finestra può occupare veramente alcuni megabyte. Ma se abbiamo Word c'è già tutto il necessario. Ed io Word ce l'ho, anche se Office è nella versione base.

Sub ElencoFontInstallati()
' Macro di Word scritta da Giovanni Cenati
' http://digilander.libero.it/Cenati
' Codice liberamente utilizzabile citando il sito.
    Selection.Font.Size = 12
    For i = 1 To FontNames.Count
      FontNames.Item (i)
      Selection.Font.Name = FontNames.Item(i)
      Selection.TypeText Text:="Prova di scrittura - elenco font"
      Selection.TypeParagraph
      Selection.TypeText Text:="abcdefghijklMNOPQRSTUVXYZ "
      Selection.Font.Name = "Arial"
      Selection.TypeText Text:="(" & FontNames.Item(i) & ")"
      Selection.TypeParagraph
    Next i
End Sub

Prima di tutto voglio che quello che andrò a scrivere sia di dimensione 12.

Poi uso la proprietà FontNames.Count che mi restituisce, appunto, il numero di font che Word può usare. E non sono pochi, soprattutto se avete installato altri programmi di grafica o di presentazione.

Quindi seleziono il carattere i-esimo (partendo da uno) e scrivo qualche cosa nel documento. Giusto per avere un'idea di come appare una scritta con quel carattere. Poi vado a capo e scrivo ancora qualcosa, come l'alfabeto dalla a alla zeta, un po' in minuscolo ed un po' in maiuscolo.

Infine torno al fido carattere "arial" e scrivo il nome del font che ho utilizzato. Questo perchè alcuni tipi di carattere di tipo decorativo non sarebbero altrimenti identificabili. Pensate ad esempio al Windings.

E questo è tutto. In pochissime righe.

Cenati Giovanni

© Cenati Giovanni 2004/2010 - http://digilander.libero.it/Cenati - Reventlov at Katamail com