Returns or sets a Font object that represents the character formatting of the specified object. To set this property, specify an expression that returns a Font object. Read/write Font.
Example
This example removes bold formatting from the Heading 1 style in the active document.
ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False
This example toggles the font of the second paragraph in the active document between Arial and Times New Roman.
Set myRange = ActiveDocument.Paragraphs(2).Range
If myRange.Font.Name = "Times New Roman" Then
myRange.Font.Name = "Arial"
Else
myRange.Font.Name = "Times New Roman"
End If
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
This example finds the next range of text that's formatted with the Times New Roman font.
With Selection.Find
.ClearFormatting
.Font.Name = "Times New Roman"
.Execute FindText:="", ReplaceWith:="", Format:=True, _
Forward:=True
End With