主题：关于WORD内容提取

读取word数据，参考

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim t = doc.Tables(1)
    Dim text = t.Cell(1, 2).Range.Text.ToString()
    msgbox(text)
    Doc.Close
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try