Dzwebs.Net

撰写电脑技术杂文十余年

批量删除Office文档(word,excle,powerpoint)中的超级链接

Admin | 2008-2-15 17:22:20 | 被阅次数 | 9377

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

        如果需要删除*.doc、*.xls、*.ppt等文档内的超级链接,或者删除某一块区域中的超级链接,请问你是怎么操作的呢?假如一个一个去手工删除,固然可以达到我们的目的,但需要付出一定的时间,更别说文档中存在数量庞大的超级链接时,这种方法就更是吃力不讨好,其实我们可以使用宏的方法来批量处理Office文档中的超级链接。

  1.Excel

  ActiveSheet.Hyperlinks.Delete

  2.Word

  For Each link In ActiveDocument.Hyperlinks

  link.Delete

  Next

  3.PowerPoint

  For Each link In ActiveWindow.Selection.SlideRange.Hyperlinks

  link.Delete

  Next

  需要说明的是,Word、PowerPoint的宏要使用两个循环,而不像Excel那样直接删除,假如将Hyperlinks这个集合删除,执行宏操作时将提示失败,这是没有办法的。

  这里我们以Excel为例进行说明:首先打开待处理的XLS文档,从“工具”菜单下执行“宏”→“宏”命令,宏名可以随便输入,然后单击“创建”按钮,将“ActiveSheet.Hyperlinks.Delete ”这些代码复制进去,注意粘贴到“Sun ddgod()”和“End Sub”的之间,确认关闭后返回主窗口,仍旧执行“工具”→“宏”→“宏”命令,单击“执行”按钮就可以了。不过,这段代码对从网页复制下来的XLS文档不产生效果,而是应该改换下面的代码,执行后可以清除打勾的控件与超级链接:

  Sub test()

  ActiveSheet.Hyperlinks.Delete

  For Each d In ActiveSheet.OLEObjects

  If UCase(d.ProgId) Like "*CHECK*" Then d.Delete

  Next

  End Sub

  小提示:假如只是需要将这些超级链接更改为非超级链接,那么可以选中对象后复制单元格,然后在新的位置从快捷菜单中执行“选择性粘贴”→“数值”,这样就可以将超级链接去除。

 


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231