以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  从WORD 文字文档中批量提取信息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183363)
--  作者：HJG_HB950207
--  发布时间：2022/11/3 10:28:00
--  从WORD 文字文档中批量提取信息
很多WORD 在D:\\WEN子目录下，文件名为：个人信息（***），

信息表的封面（第一页共9行），第6行为：填报日期   ******

表：情况表 ，表中有一字段为：填报日期

想从WORD文件个人信息中批量导入 填报日期 到情况表的 填报日期

谢谢！

        
--  作者：有点蓝
--  发布时间：2022/11/3 10:50:00
--  
大概是这样

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim app As New MSWord.Application
    Try
        For Each filename As String In dlg.FileNames
            
            Dim doc = app.Documents.Open(fileName)
            Dim range1 = doc.GoTo(MSWord.WdGoToItem.wdGoToPage, MSWord.WdGoToDirection.wdGoToAbsolute, 1, Nothing)
            Dim nr As Row = Tables("个人信息表").AddNew
            For Each k As Object In range1.Paragraphs
                Output.Show(k.Range.text)
                If Trim(k.Range.text) Like "填报日期*" Then
                    MsgBox("填报日期 =" & Trim(k.Range.text).Replace("填报日期", ""))
                    Exit For
                    \'nr("日期") = Trim(k.Range.text).Replace("填报日期", "")
                End If
            Next
            Doc.Close
        Next
    Catch ex As exception
        msgbox(ex.message)
    Finally
        app.Quit
    End Try
End If