Font.Name (Word)

Retorna ou define o nome do objeto especificado. String de leitura/gravação.

With Selection.Font 
 .Name = "Arial" 
 .Bold = True 
End With