# Wavy red line under a word?

How can I style my word so it shows a wavy line under it in a text cell? (Similar to what MS Word does when it finds a misspelled word)

--- update

or better - displaying a wavy line without modifying the cell

 Underscript[Style[ Text[# ]] ,