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