You can do this with a custom underline style. To create and apply a custom underline style:

  1. Choose Edit > Underline Styles and then click New. The Underline Settings dialog box displays.
  2. Name the underline style, choose a color from the Color drop-down menu, and then click OK.
  3. Highlight the text and choose Style > Underline styles > [name of your underline style].