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