如何批量导出word文档中的图片，将图片名称改成文档名称

bigbao007 · 发表于 2017-2-20 12:36

手上有400个文档，每个文档有4张图片，需要把图片都导出来，并把图片名称改成相应的文档名称。比如文档的名称是黄小明，导出的图片名称是黄小明1，黄小明2，黄小明3，黄小明4。

望高手指点~~

duquancai · 发表于 2017-2-20 23:23

本帖最后由 duquancai 于 2017-2-20 23:56 编辑

Private Sub CommandButton1_Click()
Dim imagtream As Object, fol As Object, doc As Document, p As InlineShape
Dim pa$, f$, pf$, pu$
Set fol = CreateObject("Shell.Application").BrowseForFolder(0, "GetFolder", 0)
If Not fol Is Nothing Then pa$ = fol.Items.Item.Path Else MsgBox "请选目标文件夹": Exit Sub
Set imagtream = CreateObject("ADODB.Stream")
f = Dir(pa & "\*.doc*"): pu = ThisDocument.Path & ""
Do While f <> ""
If ThisDocument.Name <> f Then
Set doc = Documents.Open(pa & "" & f, Visible:=False)
pf = Left(f, InStrRev(f, ".") - 1)
For Each p In doc.InlineShapes
i = i + 1
With imagtream
.Type = 1: .Open
.Write p.Range.EnhMetaFileBits
.SaveToFile pu & pf & i & ".jpg", 2: .Close
End With
Next
doc.Close 0
End If
f = Dir
Loop
MsgBox "导出完毕！图片保存于本文档所在文件夹内"
End Sub

复制代码

duquancai · 发表于 2017-2-20 23:34

本帖最后由 duquancai 于 2017-2-20 23:56 编辑

下载附件，点击“导出”按钮，OK！

loquat · 发表于 2017-2-21 10:05

duquancai 发表于 2017-2-20 23:23

这个存出来是EMF格式

bigbao007 · 发表于 2017-2-22 11:48

谢谢大牛！

bigbao007 · 发表于 2017-2-22 12:04

duquancai 发表于 2017-2-20 23:34
下载附件，点击“导出”按钮，OK！

大牛，按钮点了没有反应，对版本有要求吗？

duquancai · 发表于 2017-2-22 12:54

本帖最后由 duquancai 于 2017-2-22 12:58 编辑

bigbao007 发表于 2017-2-22 12:04
大牛，按钮点了没有反应，对版本有要求吗？

07版本以后，你对于什么是宏？怎样才能运行宏？需要设置哪些才启用带有宏的文档？等等这些估计你不了解，无法跟你交流！！！

bigbao007 · 发表于 2017-2-22 13:05

duquancai 发表于 2017-2-22 12:54
07版本以后，你对于什么是宏？怎样才能运行宏？需要设置哪些才启用带有宏的文档？等等这些估计你不了解， ...

大牛慧眼，一下就看出我什么都不懂

bigbao007 · 发表于 2017-2-23 13:23

duquancai 发表于 2017-2-22 12:54
07版本以后，你对于什么是宏？怎样才能运行宏？需要设置哪些才启用带有宏的文档？等等这些估计你不了解， ...

测试了一下，导出图片无法显示

		自动登录	找回密码
密码			免费注册

[求助] 如何批量导出word文档中的图片，将图片名称改成文档名称