如何清除WORD、EXCEL中的所有超链接(超级链接文字不变)
删除Word中所有超链接的方法如下:打开Word的菜单 工具->宏->Visual Basic 编辑器,或直接按快捷键 Alt+F11,打开Visual Basic 编辑器,在Visual Basic 编辑器中选择菜单 插入->模块,之后会出现一个模块1的编写窗口,把以下代码粘贴进去。
Sub RemoveHyperlinks()
For a = 1 To ThisDocument.Hyperlinks.Count
ThisDocument.Hyperlinks(1).Delete
Next
End Sub
之后关闭Visual Basic 编辑器回到Word中,选择word菜单 工具->宏->宏,打开宏对话框,你会发现多了一个名字叫RemoveHyperlinks的宏,选中这个宏,点一下“运行”按钮,Wrod文档中所有的超级链接就都删除掉了。
另外:这个宏我们可能只用一次,若此时保存退出后以后打开这个word文件时会有安全警告,所以如果以后不用了的话我们要把这个宏删除掉。删的方法也很简单,打开Visual Basic 编辑器(Word的菜单 工具->宏->Visual Basic 编辑器)在左边的工程管理器中找到我们刚建立的模块1,在模块1上按鼠标右键,选择移除模块1,就好了。
删除Excle工作表中的所有超链接的方法也差不多,也是打开Visual Basic 编辑器,粘贴一段代码,然后运行宏,只是这段代码不同而已。代码如下:
Sub RemoveHyperlinks()
‘Remove all hyperlinks from the active sheet
ActiveSheet.Hyperlinks.Delete
End Sub
下面的代码也可以删除Excle工作表中的所有超链接:
Sub ZapHyperlinks()
Cells.Hyperlinks.Delete
End Sub
另外,如果讨厌Word和Excel的这个功能,可以直接将其取消word和excel自动加超链接的功能,方法如下:
Wrod和Excel是一样的:菜单 工具->自动更正选项->键入时自动套用格式 选项卡->把 Internet 及网络路径替换为超链接 前的对勾去掉。