按Alt+F11,會出現一個Microsoft Visual Basic窗口,在左上角工程對話框中雙擊ThisDocument,之后在右邊便會出現一個對話框,把以下代碼粘貼上去:
=============我是分割線=====================
Sub 取消鏈接()
For a = 1 To ThisDocument.Hyperlinks.Count
ThisDocument.Hyperlinks(1).Delete
Next
End Sub
==============我是分割線====================