Selection.Font (Word)

Devuelve o establece un objeto Font que representa el formato de carácter del objeto especificado.

Para establecer la propiedad Font, especifique una expresión que devuelve un objeto Font.

MsgBox Selection.Font.Name