Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim app As New MSWord.Application
try
If FileSys.DirectoryExists(ProjectPath & "Attachments") = False Then
FileSys.CreateDirectory(ProjectPath & "Attachments/")
End If
Dim doc = app.Documents.Open(dlg.FileName)
Dim nr As Row = Tables("表A").AddNew
For Each k As object In doc.Paragraphs
nr("第一列") = nr("第一列") & k.Range.text
Next
'nr("第一列") = text
'-------------
Dim lst As new List(of String)
app.ActiveWindow.Selection.WholeStory
For Each shape As object In app.ActiveWindow.Selection.InlineShapes
If shape.Type = MSWord.WdInlineShapeType.wdInlineShapePicture
Dim img As Byte() = shape.Range.EnhMetaFileBits
Dim bmp As new Bitmap(new IO.MemoryStream(img))
Dim f As String = format(Date.now,"yyyyMMddHHmmssfffff") & ".jpg"
bmp.Save(ProjectPath & "Attachments/" & f)
lst.add(f)
End If
Next
nr.DataRow.Lines("第二列") = lst
Doc.Close
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try
End If
加好友 
发短信
Post By：2022/4/1 13:34:00 [显示全部帖子]
