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