If Selection.Type = wpsSelectionNormal Then Selection.Font.GrowElse MsgBox "You need to select some text."End If