批量删除word中的超级链接

在已粘贴网页内容的word文档里按Alt F11，粘贴如下代码：

Sub 取消链接()
For a = 1 To ThisDocument.Hyperlinks.Count
ThisDocument.Hyperlinks(1).Delete
Next
End Sub

粘贴后按F5运行。然后删除这个宏回到word你会发现所有超链接都消失了。