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