This code works if your hyperlinks are all at the Shape Level. It might be a problem if you have sub-shapes with hyperlinks.
Code:
Sub RemoveHLs()
Dim aPage As Page, aShape As Shape, i As Integer
For Each aPage In ActiveDocument.Pages
For Each aShape In aPage.Shapes
Do While aShape.Hyperlinks.Count > 0
aShape.Hyperlinks(0).Delete 'apparently hyperlinks are a zero-based array
Loop
Next aShape
Next aPage
End Sub