How to Remove Hyperlinks in Word

By Sophia | Last Updated January 03, 2024

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
• Way 2: Remove hyperlinks by shortcuts
• Way 3: Remove hyperlinks with VBA

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.

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.

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.

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 button to run the script.

Related Links:

• How does AutoRecover Work
• How to Recover Unsaved Documents in Office 2010
• How to Insert Frame into Microsoft Office Word
• How to Change Orientation of One Page in Word
• How to Add a Watermark on PowerPoint Presentation