twitter
    Find out what I'm doing, Follow Me :)

Thursday, December 2, 2010

How to Remove All Hyperlinks in Word or Excel

Ever copy and paste something from the Internet and then into Word only to get the hyperlinks embedded? You can removed them easily with the Macros below.

Microsoft Word

Hit [ALT]+ [F11] to open the Visual Basic Editor
Go to “Insert” > “Module” and in the pop-up window copy:
Sub RemoveHyperlinks()
Dim oField As Field
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldHyperlink Then
oField.Unlink
End If
Next
Set oField = Nothing
End Sub
Then click “File” > Close and return to Microsoft Word
You can now run the Macro in Word by going to:
Tools > Macro > Macro and then Run “RemoveAllHyperlinks”

Microsoft Excel:

You can do the same in an Excel Document:

Hit [ALT]+[F11] to open the Visual Basic Editor
Go to “Insert” > “Module” and in the pop-up window copy:
Sub RemoveHyperlinks()
'Remove all hyperlinks from the active sheet
ActiveSheet.Hyperlinks.Delete
End Sub
Then click “File” > Close and return to Microsoft Excel
You can now run the Macro in Excel by going to:
Tools > Macro > Macro and then Run “RemoveAllHyperlinks”, this will delete all URLS on the selected worksheet.


.

No comments:

Post a Comment