主题：[求助]如何读取Word文档的信息

 操作word，比如，得到所有内容

Dim app As New MSWord.Application
try
    Dim fileName = "d:\ts.doc"
    app.Documents.Open(fileName)
    Dim count = app.Documents(fileName).Characters.Count
    Dim rng As MSWord.Range = app.Documents(fileName).Range(Start:=0, End:=count)

    msgbox(rng.Text)
    rng.Select()   '全选
    rng.Copy()   '拷贝
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

'msgbox(ClipBoard.GetText)

参考 http://msdn.microsoft.com/zh-cn/library/tcyt0y1f%28v=vs.80%29.aspx