如何统一删除word中的超链接

在右边代码区粘贴如下代码：

Sub 取消链接()For a = 1 ToThisDocument.Hyperlinks.CountThisDocument.Hyperlinks(1).DeleteNextEnd Sub

最后单击“运行子过程”按钮运行该代码即可。