Word中批量删除超链接(保留源格式)

最近从网上批量CV了一大篇文章，排版后发现，许多文字、图片都设置了超链接，鼠标放过去时老出现提示，感觉很不舒服，于是萌发了删除这些超链接的想法。

可是，这么多超链接，不可能一个一个删除的呀，加上我是如此青睐于批处理，深信Word肯定也有批处理！
网上搜来搜去，发现大多数的方法都是粘贴的时候选择“无格式文本”来过滤掉超链接。

这种方法确实能够有效的删除超链接，可是，我辛辛苦苦排版的格式就全都没有了！
经过进一步的搜索之后，找到了这么个“宏”程序来实现我的梦想，先将“宏”代码放下：
Option Explicit
Sub DelHyperlinks()
Dim HypCount As Integer, i As Integer '关闭屏幕更新
Application.ScreenUpdating = False '取得活动文档中超链接的总数
HypCount = ActiveDocument.Content.Hyperlinks.Count '
MsgBox "已删除文档中的" & HypCount & "个超链接!" '使用倒序法逐个删除超链接
For i = HypCount To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next '恢复屏幕更新
Application.ScreenUpdating = True
End Sub
使用方法：
在Word工具栏的空白处单击右键，选择“Visua Basic”，出现
后，点击按钮后，在出现的对话框中单击“编辑”，把上面的代码复制到代码框中，关闭后再次点击选择刚才那个宏，点击运行即可删除文章中所有的超链接，而且保证源格式不变！。