[求助]doc文字和图片提取 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:提取文字图片到表a.zip

求助表a导入外部文档的文字、图片到第一列、第二列（图片保存在Attachments文件夹）

就是看到蓝主上楼你发的这个项目，不知道怎么修改，才求助

上楼项目是从表里面提取，不懂怎么修改

Dim dlg As new OpenFileDialog

dlg.MultiSelect = True

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

For Each filename As String In dlg.FileNames

Dim doc = app.Documents.Open(fileName)

Dim nr As Row = Tables("表A").AddNew

Dim t = doc.Tables(1)

Dim text = t.Cell(1, 2).Range.Text.ToString()

text = text.Substring(0, text.Length - 2)

nr("第一列") = text

'-------------

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))

bmp.Save(ProjectPath & "Attachments/" & nr("第二列") & ".jpg")

End If

nr("第一列") = nr("第二列") & ".jpg"

Doc.Close

catch ex As exception

msgbox(ex.message)

finally

app.Quit

End try

End If

蓝主，求助，提取的图片放在，姓名，这个文件夹里面

下载信息 [文件大小：下载次数： ]
点击浏览该文件:提取文字图片到表a - w.foxdb

bmp.Save(ProjectPath & "Attachments\" & nr("姓名") & f)

上面代码，提取的图片，放在Attachments的1级文件夹里面不是想要的效果。

想实现，提取的图片，放在Attachments 下面的2级文件夹里面（当前行姓名，这个文件夹），下面代码报错：未将对象引用设置到对象的实例

bmp.Save(ProjectPath & "Attachments\" & nr("姓名") & "\" & f)

[此贴子已经被作者于2022/4/1 17:00:14编辑过]

主题：[求助]doc文字和图片提取