一次删除Word和Excel中所有超链接的方法(转载）

Microsoft Office功能包罗万象，非常丰富，不过有些功能也是非常讨厌的，比如今天遇到的这个问题，我用Excel写一个通讯簿里面包含一个电子邮件字段，Excel就自做聪明给每个电子邮件自动加了超链接，当时也没管它，等通讯簿写完了，超链接下面都有下划线，打印出来很难看，而超链接又有几十个，一个一个的删除很麻烦。但一时又找不到删除这些链接的方法，google一下居然查不到，不过幸亏我学过E文搜了一下delete all hyperlink居然找到了方法。

删除Word中所有超链接的方法如下：打开Word的菜单 工具->宏->Visual Basic 编辑器，或直接按快捷键 Alt+F11，打开Visual Basic 编辑器，在Visual Basic 编辑器中选择菜单 插入->模块，之后会出现一个模块1的编写窗口，把以下代码粘贴进去。

SubRemoveHyperlinks()
    DimoFieldAsField
   For EachoFieldInActiveDocument.Fields
       IfoField.Type = wdFieldHyperlinkThen
            oField.Unlink
       End If
   Next
   SetōField =Nothing
End Sub

之后关闭Visual Basic 编辑器回到Word中，选择word菜单 工具->宏->宏，打开宏对话框，你会发现多了一个名字叫RemoveHyperlinks的宏，选中这个宏，点一下“运行”按钮，Wrod文档中所有的超级链接就都删除掉了。

另外：这个宏我们可能只用一次，若此时保存退出后以后打开这个word文件时会有安全警告，所以如果以后不用了的话我们要把这个宏删除掉。删的方法也很简单，打开Visual Basic 编辑器（Word的菜单 工具->宏->Visual Basic 编辑器）在左边的工程管理器中找到我们刚建立的模块1，在模块1上按鼠标右键，选择移除模块1，就好了。

删除Excle工作表中的所有超链接的方法也差不多，也是打开Visual Basic 编辑器，粘贴一段代码，然后运行宏，只是这段代码不同而已。代码如下：

SubRemoveHyperlinks()
      ‘Remove all hyperlinks from the active sheet
      ActiveSheet.Hyperlinks.Delete
End Sub

下面的代码也可以删除Excle工作表中的所有超链接：

SubZapHyperlinks()
   Cells.Hyperlinks.Delete
End Sub

另外，如果你像我一样讨厌Word和Excel的这个功能，可以直接将其取消word和excel自动加超链接的功能，方法如下：

Wrod和Excel是一样的：菜单 工具->自动更正选项->键入时自动套用格式 选项卡->把Internet 及网络路径替换为超链接前的对勾去掉