Sub UnLinkAll()
'Unlink all hyperlinks from sheet
ActiveSheet.Hyperlinks.Delete
End Sub
それだけです
PSそして、Wordではさらに簡単です。目的のテキスト(またはCTRL + Aでテキスト全体)をマークし、CTRL + Shift + F9を押します。