作者：绿色风
分类：
时间：2022-08-18
浏览：111
楼主
传递 |
Q: 如何批量删除word超链接？
A 3种方法处理：
方法一：
粘贴的时候选择“无格式文本”来过滤掉超链接。这种方法最简单有效的删除超链接，缺点：格式全都没有。
方法二：
批量删除Word中的链接，可以先Ctrl+A组合键全选，然后再按Ctrl+Shift+F9组合键即可取消文档中的所有链接。（这个我常用，目前还没发现格式破坏）
方法三：用VBA批量删除超链接（保留源格式）这个我测试下来是不破坏原格式的，缺点是新手不容易掌握。
宏代码如下：
- Option Explicit
- Sub DelHyperlinks()
- Dim HypCount As Integer, i As Integer '关闭屏幕更新
- Application.ScreenUpdating = False '取得活动文档中超链接的总数
- HypCount = ActiveDocument.Content.Hyperlinks.Count '
- MsgBox "已删除文档中的" & HypCount & "个超链接!" '使用倒序法逐个删除超链接
- For i = HypCount To 1 Step -1
- ActiveDocument.Hyperlinks(i).Delete
- Next '恢复屏幕更新
- Application.ScreenUpdating = True
- End Sub
使用方法：
在Word工具栏的空白处单击右键，选择“Visua Basic”，出现后，点击按钮后，在出现的对话框中单击“编辑”，把上面的代码复制到代码框中，关闭后再次点击选择刚才那个宏，点击运行即可删除文章中所有的超链接，而且保证源格式不变
|
2楼
滴水穿石 |
还是第二种方法实用！ |
3楼
0Mouse |
恩，第二种方法最受欢迎。
其实Ctrl+Shift+F9的实质是转换域为普通文本。
方法三代码注解错位了。 |
4楼
篮板球 |
还是方法二最常用，简单有效。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一