Sub Main()
' Removes hyperlinks from document
' Macro written 1 Aug 2001 by John McGhie

For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next i

End Sub

Note that it works "backwards" up the document. That's because each time
you delete a hyperlink, the collection re-numbers. If you go "forwards",
you delete only every second hyperlink :-)



On 15/3/06 5:31 PM, in article
, "cb"
wrote:

I copy a page from my corporate website that has hyperlinks in this one
particular column. The rest of the columns and rows only have text and no
links. When I copy and paste it into word I can remove the hyperlinks one by
one by right clicking. Sometimes this column has 60 rows though.

Is there a way to remove the hyperlinks in the column all at once?

--

Please reply to the newsgroup to maintain the thread. Please do not email
me unless I ask you to.

John McGhie
Microsoft MVP, Word and Word for Macintosh. Consultant Technical Writer
Sydney, Australia +61 (0) 4 1209 1410