怎样把WORD中的图片提取出来，另存到指定目录下

jscz_ch · 发表于 2003-11-11 10:22

WORD里的图片，是从别处资料素材上通过一系列方法复制到WORD中的（并没保存到硬盘上）经过整理，现该DOC内格式如下：图片0001 简介文字标题说明文字详细介绍文字 ********** 图片0002 简介文字标题说明文字详细介绍文字 ********** ... ********** 图片2015 简介文字标题说明文字详细介绍文字 ********** ... 想把所有图片（两三千张）提出，另存在指定目录下，怎么办？

jscz_ch · 发表于 2003-11-11 11:08

没人理我啊，5555

jscz_ch · 发表于 2003-11-11 11:15

我知道热心人在帮我试：）我在VBA里只知道插入图片，但把DOC中图片提取出另存为，就没试过了是不是也是用selection对象，对全文扫一遍？SELECT到图片，就另存为一下，弄个循环我不知道这个思路是否正确，因为我对OFFICE里的VBA不是太熟

jscz_ch · 发表于 2003-11-11 11:21

Sub InsertPictureAndAdj() Dim FileName As String FileName = "D:\MyDocuments\My Pictures\样品.jpg" Selection.InlineShapes.AddPicture FileName:= _ FileName, LinkTofile:=False, SaveWithDocument:=True ActiveDocument.InlineShapes(1).Width = 283 ActiveDocument.InlineShapes(1).Height = 212 End Sub 我不懂VBA，但这里，它能从外部调图片文件进来，就没有与此相对称的，把图片另存出去成JPG文件么？如果没有，这算BUG，急人：（

sunnet · 发表于 2003-11-11 11:25

将 Word 文件另存为“Web 页”，随后可以在（文件名）.files 文件夹中找到所有的图片。余下的事应该不难了吧。

jscz_ch · 发表于 2003-11-11 13:08

以下是引用sunnet在2003-11-11 11:25:00的发言： 将 Word 文件另存为“Web 页”，随后可以在（文件名）.files 文件夹中找到所有的图片。余下的事应该不难了吧。

这个方法我试一下：）版主，可能我没表达清，我的图片，来自素材光盘，要取出来，只能复制进WORD，这里WORD只是一个中转（所以图片不是来自硬盘），现也不考虑放进SQL了，只要能另存到硬盘，我再在SQL里用二进制来表示也一样

[此贴子已经被作者于2003-11-11 13:20:23编辑过]

jscz_ch · 发表于 2003-11-11 13:19

OK，成功，表示感谢汗啊，遇到困难时，一钻进牛角尖，就麻烦了，真是柳暗花明也感谢版主的热情

henterwu · 发表于 2003-11-11 18:17

妙极了！

pinda · 发表于 2003-11-26 19:11

另存为WEB

winak · 发表于 2003-11-11 13:19

[em18]看来是我的判断有误

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