如何清除WORD、EXCEL中的所有超链接(超级链接文字不变)

编辑器，或直接按快捷键Alt+F11
，打开Visual Basic编辑器，在Visual Basic
编辑器中选择菜单 插入-模块，之后会出现一个模块1的编写窗口，把以下代码粘贴进去。
Sub RemoveHyperlinks()
For a = 1 To
ThisDocument.Hyperlinks.Count
ThisDocument.Hyperlinks(1).DeleteNextEnd 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.DeleteEnd Sub下面的代码也可以删除Excle工作表中的所有超链接：