how-to remove hyperlinks from WORD

You can remove hyperlinks by deleting the style called Hyperlink, or by hitting Ctrl+A, then Shift+Ctrl+F9 (which will remove all underlying fields), but if you have alot of documents that contain hyperlinks, this code speeds up Word's native function. A quicker way to do it if there are lots of hyperlinks per document, or you're using it as part of another procedure. There is a code for just the current document, and a code taht will remove hyperlinks from "all" open documents.

Option Explicit

Sub KillTheHyperlinks()
' -----------------------------------------------
' Removes all hyperlinks from the document:
' Text to display is left intact
' -----------------------------------------------
With ThisDocument

' Loop while there are hyperlinks afoot!
While .Hyperlinks.Count > 0
.Hyperlinks(1).Delete
Wend

End With

' Shut this off, don't need anymore popping up
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
End Sub


Sub KillTheHyperlinksInAllOpenDocuments()
' -----------------------------------------------
' Removes all hyperlinks from any open documents
' Text to display is left intact
' -----------------------------------------------
Dim doc As Document
Dim szOpenDocName As String


' Loop through all open documents:
For Each doc In Application.Documents

' Store the document name
szOpenDocName = doc.Name

' Remove the hyperlinks from that document
With Documents(szOpenDocName)

' Loop while there are hyperlinks afoot!
While .Hyperlinks.Count > 0
.Hyperlinks(1).Delete
Wend

End With

' Shut this off, don't need anymore popping up
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False

Next doc

End Sub


How to use:

Open your Word document
Press Alt + F11 to open VBE
Insert-Module. (Insert -> module)
Paste the code there in the window at right. (F7)
Close VBE (Alt + Q or press the X in the top right hand corner)
Save the file


Test the code:

Press Alt + F8 to open the macro dialog box
Select KillTheHyperlinks
Click Run