当前位置: 代码迷 >> VBA >> 大家帮忙看看,下面用VB读取word中的字符案例该怎么实现
  详细解决方案

大家帮忙看看,下面用VB读取word中的字符案例该怎么实现

热度:4293   发布时间:2013-02-26 00:00:00.0
大家帮忙看看,下面用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吧

VB code
Sub test()    For Each objPG In Application.ActiveDocument.Paragraphs        MsgBox objPG.Range.Text    NextEnd Sub
  相关解决方案