用宏删除word文档中的全部超链接

作者：绿色风分类：时间：2022-08-18 浏览：83

楼主 kevinchengcw	经常在网上学习，看到好的图文并茂的文章就喜欢用word保存下来，但是这些文章里往往含有大量的超链接，不但使文件体积变大，而且不慎点击到了还会跳出IE窗口，不胜其烦，在此特提供批量删除word中超链接的vba代码 Sub DelHyperlinks() Dim HP As Hyperlink Dim S As Shape For Each S In ThisDocument.Shapes S.Hyperlink.Delete Next S For Each HP In ThisDocument.Hyperlinks HP.Delete Next HP End Sub 希望对像我一样经常在网上摘抄读书笔记的朋友有所帮助
2楼完美	也可以这样 Sub DelHyperlinks() Dim Hl As Hyperlink Dim i As Integer For i = 1 To 2 For Each Hl In ActiveDocument.Hyperlinks Hl.Delete Next Hl Next i End Sub
3楼传递	全选后按ctrl+shift+F9，不用VBA也行。
4楼 bensonlei	没错，word已内置这个功能。
5楼 kevinchengcw	用快捷功能好像图形的超链接无法去掉

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表