如何使用VBA删除所有打开word文档里面的所有超链接？

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

楼主
wise

Q：如何使用VBA删除所有打开的word文档里面的所有超链接？
A：ALT+F11→插入模块→在模块输入以下代码：

Sub 删除超链接()
With ThisDocument
'当前word里面
While .Hyperlinks.Count > 0
'如果找到超链接，则删除
.Hyperlinks(1).Delete
Wend
End With
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
'Word 会在键入时自动将电子邮件地址、服务器和共享名称（即 UNC 路径）和 Internet 地址（即 URL）不能改为超链接
End Sub

Sub 删除所有打开word工作簿的超链接()
Dim doc As Document
Dim DocName As String
For Each doc In Application.Documents
'循环当前打开的word工作簿
DocName = doc.Name
'获取word工作簿的名字
With Documents(DocName)
While .Hyperlinks.Count > 0
.Hyperlinks(1).Delete
Wend
End With
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
'Word 会在键入时自动将电子邮件地址、服务器和共享名称（即 UNC 路径）和 Internet 地址（即 URL）不能改为超链接
Next doc
End Sub

其中前面的一个代码是删除当前的word工作簿的所有超链接的代码
后面的代码是删除所有打开的word工作簿的超链接的代码。
最后按F5可以运行代码。

2楼
wise

用宏删除word文档中的全部超链接 http://www.exceltip.net/thread-7063-1-1.html

这个是K哥的，我的是要求当前打开的工作簿
特别是后面那段代码，涉及到不同word工作簿的之间的操作，是和他的不同的

免责声明

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

评论列表