The shortcut method will remove all hyperlinks | Remove all hyperlinks with VBA

Remove all hyperlinks by using shortcuts with VBA

Simple Method

1. Press “Ctrl-A” to select the whole document.

2. Press “Ctrl-Shift-F9”.

The shortcut method will remove all hyperlinks

Remove all hyperlinks with VBA

Following VBA can be used to remove all hyperlinks in Word.

1. Press “Alt-F11” to open the Microsoft Visual Basic for Application window;

2. Click Insert > Module, and then copy and paste the follow VBA code into the Module window.

3. Then click Run Sub button to run the script.

VBA Code 1: Remove all hyperlinks of current document

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

VAB code 2: Remove all hyperlinks in all open documents

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