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
Next
End Sub