word操作，急急，请大家帮下忙啊

[zglongfei]

如何用vb读取word文档中的内容,能把它显示在text中或者赋给一个变量?
我希望循环读取 一行一行的来

[xmrforever]

ActiveDocument.Range可以获得全部文本，如果数组量不多，你可以直接将其读入然后处理。否则可以利用临时文件，将这些文本存入一个文本文件，然后一行一行读入。对于每行数据可以使用Split进行分解得到相应的值

[majun01]

Private Sub Command1_Click()
    Dim value As String
    Dim wd As Object
    Set wd = CreateObject("Word.Application")
    wd.Visible = False
    wd.Documents.Open ("E:\\d.doc")
    Text1.Text = wd.ActiveDocument.Content.Text
    wd.ActiveDocument.Close (False)
End Sub

上面的代码可以将doc中的内容全部读出，而不是一行一行读的，你可以对读出的全部数据进行再次处理。