Question

如何批量去除word中图片的超级链接？ 补充：不是文字的超级链接

提供的答案我试的不行，详细说明一下，就是我在WORD中粘贴了EXCEL中的一个图表，选的是粘贴链接，首次更新成功了，以后再次打开，不想再更新，因为原始文件我又改了，不能再让WORD更新，每次都要点否，之前也用VBA进行删除超链接，但只能消除掉文字的超链接，不能消除掉图表的超链接。
如果没有其它域，可以试试：
Sub FieUnlink()
Dim Fie As Field
For Each Fie In ActiveDocument.Fields
Fie.Unlink
Next
End Sub
这个只能针对文字，对于链接的图表不行。 图表是在EXCEL中用“复制”，在WORD中选“选择性粘贴”，勾选边上“粘贴链接”。
链接是可以用手动删除的，选定图表，右击，再选“粘贴的工作表对象”，再点“链接”，再点“断开链接”就可以做到了。 因为WORD中有多处这样的图表，且每周我都要用，所以，请高手帮我解决。
最后，haifeistar高手在线帮我解决了问题，再次感谢。

Answer 1

如何批量去除WORD中的超级链接

如果从网站上直接把资料复制下来粘贴到word中很多内容将会自动带有链接，如果一个一个点右键取消链接太费时费力了。有没有什么办法可以快速消除这些连接？

现在教你一个超级简单的办法去除这些链接:
在已粘贴网页内容的word文档里按Alt+F11，弹出的VB窗口中右键单击ThisDocument选择查看代码，然后粘贴如下代码：

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

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

补充：你那种做法，其实就是链接了EXCEL吧，这个好像没法取消，只能删掉，因为取消了的话，就不存在表格了，和删掉是一样的。不麻烦得话，还是在Word里重新做一个吧。

Answer 2

如果没有其它域，可以试试：
Sub FieUnlink()
Dim Fie As Field
For Each Fie In ActiveDocument.Fields
Fie.Unlink
Next
End Sub

补充：图表是经过怎样的操作加入到Word中的？把这个说具体点比较好。
其实链接对象在Word里面基本上都是Field，所以我才推荐用Unlink。

Answer 3

是网页上直接复制到WORD里的图片吧。你不要直接复制进去可以了啊。先下载保存的电脑里然后批量导入就可以了啊。这样图片就没有超链接了啊。