大家帮忙看看，下面用VB读取word中的字符案例该如何实现？
现在想用VB读取word文档中的内容。内容如下：d:\1.doc
'学号，姓名，班级 （第1行）
101，张三，高三2班（第2行）
104，王涛，高二2班（第3行）
123，李小萌，高三4班（第4行）
135，狄晓枫，高三2班（第5行）
现在想把第一行的内容付给参数：Data,第2行到第5行的内容，分成数组，学号赋给数组Num（），姓名赋给数组Name，班级赋给数组team().因为文件是doc文档，不知改如何处理。我用文本文档处理过（txt），代码如下：
dim LineText as string
data = FileShow.Path & "" & "1.txt"
Open indexname For Input As #1
Do While Not EOF(1)
Line Input #1, LineText
Num(i) = Val(Split(LineText, ",")(0))
Name(i) = Val(Split(LineText, ",")(1))
team(i) = Split(LineText, ",")(2)
i = i + 1
End If
如果是word文档，该如何实现，恳请大家帮忙
[解决办法]
每行是一个段落么？是不是用回车符处理的，如果是的话，你循环Paragraphs吧
Sub test()
For Each objPG In Application.ActiveDocument.Paragraphs
MsgBox objPG.Range.Text
Next
End Sub
