if(Selection.Type == wdSelectionNormal){
    Selection.Font.Underline = wdUnderlineSingle
}
else{
    MsgBox("You need to select some text.")
}