Muito cedo versões do Microsoft Word continha um recurso que gerou uma lista de impressão de todas as fontes disponíveis do programa. Esta funcionalidade não foi no Word em incumprimento há muitos anos, mas é possível usar o Microsoft Office Word macro opções de codificação de 2007 para adicioná-lo a si mesmo . Trata-se de um pouco de programação Visual Basic, mas , felizmente, o site da Microsoft fornece o código VB pré-escrita para fazer exatamente isso. Instruções
1

Selecione a guia "Desenvolvedor" . Se você não conseguir encontrá-lo, clique no botão Office , depois em " Opções do Word ", depois " populares ", e marque a opção " Mostrar guia Desenvolvedor na Faixa de Opções. "
2

Clique em " Macros ". Digite um nome para sua macro - algo como " Lista de fontes " seria apropriado, mas você pode chamar do que quiser . Selecione " normal.dotm " da lista " Macros In" para tornar a sua macro disponível não importa o documento que você está editando. Por fim, clique em "Criar " para abrir o Editor do Visual Basic.
3

Copie a totalidade do código a seguir , começando com a linha " Sub ListFonts ()" e terminando com " End Sub " e cole-o em seu editor do Visual Basic :

Sub ListFonts ()

Dim varFont As Variant

' velocidades de processamento de macro e suprime a exibição
Application.ScreenUpdating = False

'Criar novo documento

Template Documents.Add : . = "normal"

. loop através de cada fonte disponível

para cada varFont Em FontNames

com Seleção

' Formato para nome do tipo de letra.

. Font.Name = " Times New Roman "

. Font.Bold = True

. Font.Underline = True

" Inserir nome da fonte .

. TypeText varFont

' Inserir um novo parágrafo após o . . Nome da Fonte

InsertParagraphAfter

' Mover para o novo parágrafo

MoveDown unidade: . . = wdParagraph , Count: = 1 , Extend : = wdMove

' Formato para o exemplo da fonte.

. Font.Bold = False

. Font.Underline =
Falso

. Font.Name = varFont

' Digite o exemplo de texto ( caracteres alfabéticos. )

. TypeText " abcdefghijklmnopqrstuvwxyz "

' Inserir um novo parágrafo.

. InsertParagraphAfter

' Mover para o novo parágrafo

MoveDown unidade: . . = wdParagraph , Count: = 1 , Extend : ( . caracteres numéricos ) . = wdMove

'Inserir exemplo texto

TypeText " 0123456789 ? $% & () [ ] * _-= + /<> "

'Inserir dois novos parágrafos e se move para baixo .

. InsertParagraphAfter

. . InsertParagraphAfter

MoveDown unidade: = wdParagraph , Count: = 1 , Extend : = wdMove

End With

Próxima varFont

Application.ScreenUpdating = True

End Sub

Certifique-se de que este código copiado torna -se todo o conteúdo de sua macro - excluir qualquer código que estava lá para começar. Clique todos os botões "OK" para concluir a criação de sua macro
4

clique com o botão direito do mouse sobre a Barra de Ferramentas de Acesso Rápido - . O conjunto de ícones à direita do botão do Office que incluem "Save "e" Abrir ". Clique em "Personalizar Barra de Ferramentas de Acesso Rápido. "
5

Selecione "Macros" do " Escolher comandos de " pull-down menu , selecione a macro que você acabou de fazer a partir da lista que aparece. Clique em "Adicionar ".
6

Clique em " Modificar" para selecionar uma imagem para o botão , em seguida, clique em "OK ". Um novo botão agora aparecerá na Barra de Ferramentas de Acesso Rápido , clique sobre ele irá criar um novo documento do Word e preenchê-lo com uma amostra de todas as fontes disponíveis . Você pode então imprimir esse documento como faria com qualquer outro .