Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

MS Word - Remove All hyperlinks - VBA

Posted on 2009-07-06
2
Medium Priority
?
681 Views
Last Modified: 2013-11-10
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
0
Comment
Question by:hennanra3
2 Comments
 
LVL 12

Accepted Solution

by:
geneus earned 2000 total points
ID: 24783845
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
 

Author Closing Comment

by:hennanra3
ID: 31600090
Wow - that was fantastic and too easy!  Many thanks.
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
In real business world data are crucial and sometimes data are shared among different information systems. Hence, an agreeable file transfer protocol need to be established.
Office 365 is currently available in five editions. Three of them are for business use: Office 365 Business Essentials, Office 365 Business, and Office 365 Business Premium. Two of them are for home/personal use: Office 365 Home and Office 365 Perso…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

926 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question