deletion of hyperlinks

  • Thread starter Thread starter jay
  • Start date Start date
J

jay

I'm using 2007 Office with Windows XP Pro.

I have a Word document spotted with many various hyperlinks. I know I can
individually remove them, but surely there is a faster way to remove them
from the document?
 
Use a macro containing the following code:

Dim i As Long
With ActiveDocument
For i = .Hyperlinks.Count To 1 Step -1
.Hyperlinks(i).Delete
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
 
To: Jay,

The following macro removes all hyperlinks in an active document, in
addition, it places the number of hyperlines to be removed in the status bar
along with the number left to be removed while it removes them. If you have
thousands of hyperlinks in a document, these numbers will give you a general
idea as to how long it will take to remove them all.

'
' Remove all hyperlinks
'
Sub RemoveHyperlinks()
Dim i As Long
Dim nLinks As Long

nLinks = ActiveDocument.Hyperlinks.Count
For i = nLinks To 1 Step -1
Application.StatusBar = nLinks & ":" & i
ActiveDocument.Hyperlinks(i).Delete
Next i
End Sub


Steven Craig Miller
 
Back
Top