主题：怎样读取odc文档中的指定位置的文字到表A中？

doc文件？参考代码

Dim app As New MSWord.Application
try
    Dim fileName = "d:\投标人须知.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim tb = doc.Tables(1)
    For i As Integer = 1 To tb.Rows.count
        For j As Integer = 1 To tb.Columns.count
            Output.Show(tb.cell(i, j).Range.Text)
        Next
    Next   
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try