Sub RemoveBracketedHyperlinks()
Dim hLink As Hyperlink
 Dim oRng As Range
   On Error Resume Next

     For Each hLink In ActiveDocument.Hyperlinks
        Set oRng = hLink.Range
        oRng.Start = oRng.Start - 1
        oRng.End = oRng.End + 1
        If oRng.Characters.First = "(" And _
           oRng.Characters.Last = ")" Then
            oRng.Delete
        End If
    Next hLink
lbl_Exit:
    Set hLink = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub