Remove Multiple Hyperlinks in Word 2003

[alfordsteven]

Hi,

I have downloaded multiple pages of information from the Web and on each line there is a hyperlink. I would like to preserve the text and remove all hyperlinks without going line by line. I tried going into Autocorrect/Autoformat and unchecking the hyperlink box, but this didn't do anything. Any ideas?

Thank you very much!

Steve

[spacesurfer]

You can do it with the following macro:

Sub removehyperlink()

Set myRange = ActiveDocument _
	.Range(Start:=ActiveDocument.Content.End - 1)
Count = 0
For Each aHyperlink In ActiveDocument.Hyperlinks
	Count = Count + 1
	With myRange
		aHyperlink.Delete
	End With
Next aHyperlink

End Sub

[spacesurfer]

Here's a shorter code:

Sub removeallhyperlinks()
	For Each myHyperlink In ActiveDocument.Hyperlinks
		myHyperlink.Delete
	Next myHyperlink
End Sub

[alfordsteven]

Thank you very much! The script works like a charm.

Steve