Selection.Font (Word)
Retorna ou define um objeto Font que representa a formatação de caractere do objeto especificado. Leitura/gravação.
Para definir a propriedade Font, especifique uma expressão que retorna um objeto Font.
MsgBox Selection.Font.Name