Selection.Font (Word)

Returns or sets a Font object that represents the character formatting of the specified object.

To set the Font property, specify an expression that returns a Font object.

MsgBox Selection.Font.Name