Objeto FontNames (Word)
Representa uma lista dos nomes de todas as fontes disponíveis.
Use a propriedade FontNames, LandscapeFontNames ou PortraitFontNames para retornar o objeto FontNames. O exemplo a seguir exibe o número de fontes de retrato disponíveis.
MsgBox PortraitFontNames.Count & " fonts available"
Este exemplo lista todos os nomes de fonte no objeto FontNames no final do documento ativo.
For Each aFont In FontNames
ActiveDocument.Range.InsertAfter aFont & vbCr
Next aFont
Use FontNames (Index), onde Index é o número de índice, para retornar o nome de uma fonte. O exemplo a seguir exibe o primeiro nome da fonte do objeto FontNames.
MsgBox FontNames(1)
Observação
[!OBSERVAçãO] Você não pode adicionar ou remover nomes na lista de nomes de fontes disponíveis.
Referência do modelo de objeto do Word
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.