vba world 括号内 内容读取

选择题：

 

1.判断zxl是不是程序员：(        B  )

A. 是 B.不是 C.可能 D.也许

2.判断zxl是不是程序员：(  C           )

A. 是 B.不是 C.可能 D.也许

3.判断zxl是不是程序员：(  a  )

A. 是 B.不是 C.可能 D.也许

4.判断zxl是不是程序员：( D  )

A. 是 B.不是 C.可能 D.也许

Sub test()    For i = 1 To ThisDocument.Paragraphs.Count        With ThisDocument.Paragraphs(i)            Z = .Range.Text            N = InStr(Trim(Z), "(")            If N <> 0 Then            E = InStr(Z, ")") '查找位置            zok = Trim(Mid(Z, N + 1, E - (N + 1))) '去空格            Data = Replace(zok, vbTab, "") '去tab            MsgBox (Data)            End If        End With    NextEnd Sub