按Alt+F11，会出现一个Microsoft Visual Basic窗口，在左上角工程对话框中双击ThisDocument，之后在右边便会出现一个对话框，把以下代码粘贴上去：
复制内容到剪贴板
程序代码
程序代码=============我是分割线=====================
Sub 取消链接()
For a = 1 To ThisDocument.Hyperlinks.Count
ThisDocument.Hyperlinks(1).Delete
Next
End Sub
Sub 取消链接()
For a = 1 To ThisDocument.Hyperlinks.Count
ThisDocument.Hyperlinks(1).Delete
Next
End Sub
Tags: 超级链接 word ThisDocument
