If Selection.Type = wpsSelectionNormal Then mySel = Selection.Font.SmallCaps If mySel = wpsUndefined Then Selection.Font.SmallCaps = True Else MsgBox "You need to select some text." End If