按Alt+F11,会出现一个Microsoft Visual Basic窗口,在左上角工程对话框中双击ThisDocument,之后在右边便会出现一个对话框,把以下代码粘贴上去:
=============我是分割线=====================

Sub 取消链接()
For a = 1 To ThisDocument.Hyperlinks.Count
ThisDocument.Hyperlinks(1).Delete
Next
End Sub
==============我是分割线====================