Shadwrick Vick - Lessons and Hobbies

You’ve obviuosly run into the tedious task of copying some text from a source like a website and the formatting of hyperlinks automatically pastes to a document you’re working on. You can remove the hyperlinks - but it can be a very time consuming task especially if there are a ton of hyperlinks you want to remove.

There are a few ways to go about this.

1. Select a point in the hyperlink, right click and choose "remove hyperlink". Is effective but very time consuming with multiple hyperlinks to remove in a Word, Powerpoint or Excel document.

Microsoft Word

Removing hyperlinks from Word Documents

• A more effecient way is to remove formatting from your text using a keyboard shortcut. Again this only works in later versions of Word from my experience. Select all your text that has hyperlinks you want to remove by clicking ctrl + A, then click ctrl + shift + f9. This should remove your hyperlinks instantly.
• You can also use a more advanced method using visual basic macros.
  • Click Alt + F11 to bring up the VB editor - don’t be afraid - this is easier then you think. You can also go to the
  • On the menu at the top click - Insert/module. A new window opens where you paste this text:

Sub RemoveHyperLinksGLobally()

Dim i As Integer
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next i
End Sub

• Finally click the green play button icon underneath the debug menu and the script will run or execute causing your hyperlinks to go away.

Microsoft Excel

Removing hyperlinks from Excel Documents

Follow the same procedure as above but use this script instead.

Sub RemoveHyperLinksGLobally()
Dim i As Integer
For i = ActiveSheet.Hyperlinks.Count To 1 Step -1
ActiveSheet.Hyperlinks(i).Delete
Next i
End Sub

PowerPoint

Removing hyperlinks from PowerPoint Documents

Follow the same procedure as above but use this script instead. Depending on your version of Powerpoint you may or may not have access to developer tools. In Powerpoint you go to - Developer/ Macros/insert macro and copy this script.

Sub NoHyperlinks()
Dim i As Long
Dim hl As Hyperlink
For i = 1 To ActivePresentation.Slides.Count
For Each hl In ActivePresentation.Slides(i).Hyperlinks
hl.Delete
Next hl
Next i

End Sub

Hope that helps!!