You still need to unprotect and reprotect the form in order to do this, but
you could put the form field in a table and use a macro like this to change
the color of the cell's bottom border:
Sub ExitTextField()
If Not Selection.Information(wdWithInTable) Then
Exit Sub
End If
ActiveDocument.Unprotect
With Selection.Cells(1)
.Borders(wdBorderBottom).ColorIndex = wdRed ' or other
End With
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True
End Sub
Set this macro as the Exit Macro for each form field that needs a colored
underline.
Of course, this works only if the form field contains only one line of text.
If it word-wraps to another line, it will appear that only the last line is
underlined. Also, the line will be the full width of the table cell, not
just the width of the text.
--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.