Font.Name (Word)

Devuelve o establece el nombre del objeto especificado.

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