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

朵朵爸

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

　　ActiveSheet.Hyperlinks.Delete

　　2.Word

　　For Each link In ActiveHyperlinks

　　link.Delete

　　Next

　　3.PowerPoint

　　For Each link In ActiveSelection.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

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