主题：操作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()
    text = text.Substring(0, text.Length - 2)
    msgbox(text)
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try