You can do this with a custom underline style. To create and apply a custom underline style:
- Choose Edit > Underline Styles and then click New. The Underline Settings dialog box displays.
- Name the underline style, choose a color from the Color drop-down menu, and then click OK.
- Highlight the text and choose Style > Underline styles > [name of your underline style].