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