大概是这样
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
加好友 
发短信
Post By：2022/11/3 10:28:00 [只看该作者]
