Size Property Example

This example inserts text and then sets the font size of the seventh word of the inserted text to 20 points.

Selection.Collapse Direction:=wdCollapseEnd
With Selection.Range
    .Font.Reset
    .InsertBefore "This is a demonstration of font size."
    .Words(7).Font.Size = 20
End With

This example determines the font size of the selected text.

mySel = Selection.Font.Size
If mySel = wdUndefined Then
    MsgBox "There's a mix of font sizes in the selection."
Else
    MsgBox mySel & " points"
End If

This example sets the size of the check box named "Check1" in the active document to 14 points and then sets the check box as selected.

With ActiveDocument.FormFields("Check1").CheckBox
    .AutoSize = False
    .Size = 14
    .Value = True
End With