Returns or sets a Font object that represents the character formatting of the specified object. Read/write.
expression .Font
expression A variable that represents a Selection object.
To set the Font property, specify an expression that returns a Font object.
This example displays the font of the selected text.
MsgBox Selection.Font.Name
This example applies the character formatting of the selected text to the first paragraph in the active document.
Set myFont = Selection.Font.Duplicate ActiveDocument.Paragraphs(1).Range.Font = myFont
