VBA如何遍历某一个word中的全部图片，把它们一一保存在指定的文件夹中？

jiminyanyan · 发表于 2016-8-28 15:19

huang1314wei 发表于 2016-8-28 13:20
你这个代码写的太复杂了，实际上也可以调用excel来导出word当中的图片的原始比例图片

老师：这个能转换成.jpg 格式吗？

huang1314wei · 发表于 2016-8-28 15:56

chenlifeng123 发表于 2016-8-28 15:04
谢谢，只能这样了哈。我一般采取的办法是先复制备份一份再用代码处理的。主要怕一不小心因为习惯性保存而 ...

可以在代码开始的地方把文档置为只读就好了
ActiveDocument.ReadOnlyRecommended = True

huang1314wei · 发表于 2016-8-28 15:59

jiminyanyan 发表于 2016-8-28 15:19
老师：这个能转换成.jpg 格式吗？

可以的，png换成jpg就好了

jiminyanyan · 发表于 2016-8-28 20:37

huang1314wei 发表于 2016-8-28 15:59
可以的，png换成jpg就好了

谢谢老师。。。。。。。。。

hometip · 发表于 2017-12-1 21:47

不错，正需要导出一个word图片！

fireicefan · 发表于 2018-10-16 09:53

huang1314wei 发表于 2016-8-28 13:20
你这个代码写的太复杂了，实际上也可以调用excel来导出word当中的图片的原始比例图片

会出现使用者形态尚未定义，怎么处理呢？

我的是2013版。

fireicefan · 发表于 2018-10-17 10:12

fireicefan 发表于 2018-10-16 09:53
会出现使用者形态尚未定义，怎么处理呢？

我的是2013版。

从网上找到，把VBE里工具--引用里的一个microsaft excel ... library勾选上就可以了。

Moneky · 发表于 2018-10-17 10:20

将doc另存为 docx，然后把扩展名改为 zip，压缩包中就有了

佤神采奕奕 · 发表于 2020-5-18 10:38

高手真多，都不用代码就能实现了

larer · 发表于 2020-5-18 11:42

chenlifeng123 发表于 2016-8-28 14:32
您代码我发现：处理完一次后，word中的图片都变成原来大小，再想第二次执行代码，好像不行了。
同时， ...

你想十全十美的话,最好定制开发,每个细节都帮你考虑到,论坛里的代码只是解决你的问题关键点,一般不会写入各种容错的代码的.

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

[求助] VBA如何遍历某一个word中的全部图片，把它们一一保存在指定的文件夹中？