Propriedade Application.FontNames (Word)
Retorna um objeto FontNames que inclui os nomes de todas as fontes disponíveis. Somente leitura.
Sintaxe
expression. FontNames
expressão Uma variável que representa um Aplicativo objeto.
Exemplo
Este exemplo exibe os nomes das fontes da coleção FontNames.
Dim strFont As String
Dim intResponse As Integer
For Each strFont In FontNames
intResponse = MsgBox(Prompt:=strFont, Buttons:=vbOKCancel)
If intResponse = vbCancel Then Exit For
Next strFont
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.