以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样读取odc文档中的指定位置的文字到表A中？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131613)
--  作者：comnets
--  发布时间：2019/3/2 18:51:00
--  怎样读取odc文档中的指定位置的文字到表A中？
文档中每一页都有以下内容：
编号：123
 姓名    AAA  身份证号码   XXXXXXXXXXXXXXXXXX              
                        
                        
                        
怎么将每一页的内容都新增一行读取到表A中的姓名列、身份证号码列中？
[此贴子已经被作者于2019/3/2 18:51:58编辑过]
--  作者：有点甜
--  发布时间：2019/3/3 10:40:00
--  

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