logo
Office Remove Hyperlinks in Word

How to Remove Hyperlinks in Word

By Sophia | Last Updated

Sometimes you may find some Microsoft Office Word documents from your colleagues contain some hyperlinks, once you click the hyperlink, you would be directly linked to some websites. Sometimes this is funny, but sometimes not, so you may want to find some ways to remove all hyperlinks in Word. Here I would demonstrate some ways to remove hyperlinks in Word.

Way 1: Remove hyperlinks one by one

Step 1: Launch the Word, find and right-click the hyperlink. In the coming menu list, click Remove Hyperlink.

find and remove hyperlink manually

Way 2: Remove hyperlinks by shortcuts

Step 1: Select the target Word document, then press Ctrl+ A key at same time.

Step 2: Press Ctrl+ Shift+ F9.

press ctrl shift f9 at same time

Way 3: Remove hyperlinks with VBA

Step 1: Open the target Word document, then press Alt+F11 keys at same time to open Microsoft Visual Basic for Application.

Step 2: Click the Insert item on the top bar of the coming window, select Module in the next menu list.

find module in insert

Step 3: Copy and paste the following VBA code into the Module window.

Sub KillTheHyperlinks()
' -----------------------------------------------
' Removes all hyperlinks from the document:
' Text to display is left intact
' -----------------------------------------------
With ThisDocument
' Loop while there are hyperlinks afoot!
While .Hyperlinks.Count0
.Hyperlinks(1).Delete
Wend
End With
' Shut this off, don't need anymore popping up
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
End Sub

Note: The above codes are to remove hyperlinks in current Word document. If you want to remove the hyperlinks in all opened Word documents. Just type the under words into Module window.

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.Count0
.Hyperlinks(1).Delete
Wend
End With
' Shut this off, don't need anymore popping up
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
Next doc
End Sub

Step 4: Click the Run Sub click run sub icon button to run the script.

Related Links: