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