上一篇
下一篇
09-06
27
利用宏一次去除WORD中的所有超级链接
作者:Java伴侣 日期:2009-06-27
按Alt+F11，会出现一个Microsoft Visual Basic窗口，在左上角工程对话框中双击ThisDocument，之后在右边便会出现一个对话框，把以下代码粘贴上去：
按下F5运行该宏，点击左上角Word按钮回到WORD文档就能看到所有的链接已经取消
注意：看代码可知，宏要建在文档当中才有效（即在ThisDocument之中）
复制内容到剪贴板
程序代码
程序代码=============我是分割线=====================
Sub 取消链接()
For a = 1 To ThisDocument.Hyperlinks.Count
ThisDocument.Hyperlinks(1).Delete
Next
End Sub
=============我是分割线====================
Sub 取消链接()
For a = 1 To ThisDocument.Hyperlinks.Count
ThisDocument.Hyperlinks(1).Delete
Next
End Sub
=============我是分割线====================
按下F5运行该宏，点击左上角Word按钮回到WORD文档就能看到所有的链接已经取消
注意：看代码可知，宏要建在文档当中才有效（即在ThisDocument之中）
[本日志由 blurxx 于 2009-06-27 10:10 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 超级链接 word ThisDocument 
相关日志:
评论: 0 | 引用: 0 | 查看次数: 291
发表评论
