编制宏可以很方便地删除word、excel、powerpoint文件中的超级链接

在Excel中
ActiveSheet.Hyperlinks.Delete
或者：
Sub aa()
Dim h As Hyperlink

For Each h In ActiveSheet.Hyperlinks
h.Range.Hyperlinks.Delete
Next
End Sub

在Word中
For Each link In ActiveDocument.Hyperlinks
link.Delete
Next

在PowerPoint中
For Each link In ActiveWindow.Selection.SlideRange.Hyperlinks
link.Delete
Next