Prime versioni di Microsoft Word contenevano una caratteristica che ha generato un elenco stampabile dei caratteri disponibili del programma. Questa funzionalità non è stato in parola in difetto per molti anni, ma è possibile utilizzare le opzioni di codifica macro di Microsoft Office Word 2007 per aggiungerlo manualmente. Si tratta di una piccola programmazione in Visual Basic, ma fortunatamente il sito Web di Microsoft fornisce codice VB precompilati per fare esattamente questo.

Istruzioni

1

Selezionare la scheda "Sviluppo". Se non riesci a trovarlo, fare clic sul pulsante Office, quindi "Opzioni di Word", quindi "Popolare" e controllare "Scheda sviluppatore Visualizza sulla barra multifunzione".

2

Fare clic su "Macro". Digitare un nome per la macro..--qualcosa di simile a "Elenco font" sarebbe opportuno, ma si può chiamare quello che vuoi. Selezionare "Normal. dotm" dall'elenco "Macro In" per rendere la macro disponibile non importa di quale documento si sta modificando. Infine, fare clic su "Crea" per visualizzare l'Editor di Visual Basic.

3

Copiare l'intero codice seguente, inizia con la riga "Sub ListFonts()" e termina con "End Sub" e incollarlo nell'Editor di Visual Basic:

Sub ListFonts()

Dim varFont As Variant

' Velocizza l'elaborazione di macro e sopprime la visualizzazione.

Application. ScreenUpdating = False

' Crea nuovo documento.

Documents. Add Template: = "normale"

' Loop attraverso ogni tipo di carattere disponibile.

Per ogni varFont In FontNames

With Selection

' Format for name of 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

Prossimo varFont

Application. ScreenUpdating = True

End Sub

Assicurarsi che questo copiato codice compone l'intero contenuto della macro - Elimina qualsiasi codice che era lì per cominciare. Fare clic su tutti i pulsanti "OK" per completare la creazione della macro.

4

Pulsante destro del mouse sulla barra di accesso rapido..--il set di icone appena a destra del pulsante di Office che includono "Salva" e "Open". Fare clic su "Personalizza barra di accesso rapido".

5

Selezionare "Macro" dal menu a discesa "Scegli comandi da", quindi selezionare la macro che appena creata dall'elenco che appare. Fare clic su "Aggiungi".

6

Fare clic su "Modifica" per selezionare un'immagine per il pulsante, quindi fare clic su "OK". Ora verrà visualizzato un nuovo pulsante nella barra di accesso rapido; facendo clic su esso verrà creare un nuovo documento di Word e riempirlo con un campione di ogni tipo di carattere disponibile. È quindi possibile stampare tale documento come si farebbe con qualsiasi altro.