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