deletion of hyperlinks
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
"jay" wrote:
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?
|