在线等，急需一个VB小程序，清除小括号内的数字

Private Sub Command1_Click()

Dim S As String

Dim I As Long

Dim F As Boolean

For I = 1 To Len(Text1.Text)

If Mid(Text1.Text, I, 1) = ")" Then

F = False

End If

If F = False Then

S = S &Mid(Text1.Text, I, 1)

End If

If Mid(Text1.Text, I, 1) = "(" Then

F = True

End If

Next I

Text1.Text = S

End Sub

现象：使用word2007时，发现文本中莫名其妙地多出一对灰色陪陵中括号，将所有的文字括在其中，而且文字底层有背景色。直接删除还不行，用鼠标选它就象不存在一样，根本不起作用。看起来非常碍眼键乱悄，尤其是图文标注时很是不爽。而在打印预览时，却又看不见这东东。原因：启用了“保护文档”解决方法：打开这个文档，点击：审阅→保护文档→限制格式和编辑→取消“仅允许在文档中进行此类编辑”前面的“√”→稿渣在d出的对话框中选择“是”。这样灰色方括号就去掉了。

---