You could do a Find/Replace with:
Find = empty
Replace = <HL>^&<\HL>
specifying the Hyperlink Style for the Find parameter. This adds the <HL> & <\HL> tags to the hyperlinks, though.

Alternatively, if you press Alt-F9 to expose Word's field coding, you could do a Find/Replace with:
Find = ^d HYPERLINK
Replace = <HL>^&<\HL>


Press Alt-F9 again when you're done.

No macros required.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

This doesn't seem to work. If I don't put anything in the Find box, then the search cannot occur.

--------------------------

Edit --Never mind. It does work when I enter the style formatting for the hyperlink in the FIND box. The resulting HL bits are searchable later on, so that does solve the issue. Thanks!