1
$\begingroup$

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

$\endgroup$
1
2
$\begingroup$

crude..but maybe good for some purpose

 Underscript[Style[ Text[# ]] ,
    Style[Text[StringJoin@ConstantArray["~", StringLength@#]], 
         Red]] &@"Hello World"

enter image description here

(To put in a text cell, evaluate, copy paste into text cell, then right-click and set style to output.)

$\endgroup$
1
  • $\begingroup$ Nice try! thanks $\endgroup$ – Ranza Sep 24 '15 at 20:41

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.