如何去除word中的超链接

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

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

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