批量取消word超链接

word批量取消超链接
要批量删除Word中的链接,可以先Ctrl+A组合键全选,然后再按Ctrl+Shift+F9组合键即可取消文档中的所有链接。

保留原格式的方法

最近从网上批量CV了一大篇文章,排版后发现,许多文字、图片都设置了超链接,鼠标放过去时老出现提示,感觉很不舒服,于是萌发了删除这些超链接的想法。可是,这么多超链接,不可能一个一个删除的呀,加上我是如此青睐于批处理,深信Word肯定也有批处理!

网上搜来搜去,发现大多数的方法都是粘贴的时候选择“无格式文本”来过滤掉超链接。这种方法确实能够有效的删除超链接,可是,我辛辛苦苦排版的格式就全都没有了!

经过进一步的搜索之后,找到了这么个“宏”程序来实现我的梦想,先将“宏”代码放下:

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”,出现后,点击按钮后,在出现的对话框中单击“编辑”,把上面的代码复制到代码框中,关闭后再次点击选择刚才那个宏,点击运行即可删除文章中所有的超链接,而且保证源格式不变!

声明:该代码为他人作品,本人略作不打紧的修改,本着尊重他人劳动成果的原则,本应该附上作者信息,怎奈再也没找到那个网址。

 » 转载请注明来源:网络蛀虫小窝 » 《批量取消word超链接》
 » 本站地址:http://www.gomoth.com

标签: