MS Word - Remove All hyperlinks - VBA

Hello,

I have a word document that has been created by copying and pasting various webpages.  The problem is that it is littered with hyperlinks that are causing problems in another process.  Is there a way to 'remove all hyperlinks' in a Word document.  Currently I can only see this being possible by manually edit each hyperlink and removing or pressing the remove hyperlink button.

If this is not possible with native features, can somone help with some simple VBA that would do this.  I created some VBA in Excel some time ago to do this - but don't have this anymore and also it had a different object model - not done any VBA in MS Word. I'm guessing it should be very simple.

Raheel
hennanra3Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

geneusCommented:
This macro will remove the hyperlinks from all text in the document.
Sub RemoveHyperlinks()
 
Dim y As Long
With ActiveDocument.Hyperlinks
  For y = 1 To .Count
    .Item(1).Delete
  Next y
End With
MsgBox "Completed!"
 
End Sub

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
hennanra3Author Commented:
Wow - that was fantastic and too easy!  Many thanks.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Programming

From novice to tech pro — start learning today.