Microsoft Word
Hit [ALT]+ [F11] to open the Visual Basic Editor
Go to “Insert” > “Module” and in the pop-up window copy:
Then click “File” > Close and return to Microsoft WordSub 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
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:
Then click “File” > Close and return to Microsoft ExcelSub RemoveHyperlinks()
'Remove all hyperlinks from the active sheet
ActiveSheet.Hyperlinks.Delete
End Sub
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