--
wklind
Dim i As Long, hrange As Range, htext As String
With ActiveDocument
For i = .Hyperlinks.Count To 1 Step -1
Set hrange = .Hyperlinks(i).Range
htext = hrange.Text
hrange.Delete
hrange.InsertBefore htext
Next i
End With
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
"wklind" <wklind...@news.wordbanter.com> wrote in message
news:wklind...@news.wordbanter.com...