Font Property

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.


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"
    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
    .Font.Name = "Times New Roman"
    .Execute FindText:="", ReplaceWith:="", Format:=True, _
End With

Applies to | ConditionalStyle Object | Find Object | ListLevel Object | Range Object | Replacement Object | Selection Object | Style Object

See Also | Animation Property | Bold Property | Emboss Property | EmphasisMark Property | Engrave Property | Font Object | FontNames Property | Hidden Property | Italic Property | Kerning Property | Name Property | Shadow Property | Size Property | StrikeThrough Property | Subscript Property | Superscript Property | Underline Property