Can either of these following macros be changed to make the hyperlinks bold
and than remove the hyperlink?

Sub RemoveHyperLinksGLobally()
Dim i As Integer
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next i
End Sub


-----------------------------------------------------------------------------------
Or This one


Sub UnlinkHyperlinks()
Dim nHL As Long
For nHL = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next nHL
End Sub

If you are going to remove them from the document, why do you want them
bold?

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


AL PT wrote:
Can either of these following macros be changed to make the
hyperlinks bold and than remove the hyperlink?

Sub RemoveHyperLinksGLobally()
Dim i As Integer
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next i
End Sub


-----------------------------------------------------------------------------------
Or This one


Sub UnlinkHyperlinks()
Dim nHL As Long
For nHL = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next nHL
End Sub