怎么在word文档一键保存重命名图片

redpiggy

这两天正好需要操作word，发现如果用调用word的方式很麻烦。用户电脑必须安装非精简版的office才行。而且调用速度较慢，所以把word文件解包后用Uedit32打开分析了下。 如果你的word每一页都是固定格式。直接分析word文件document就行了。 我整理了下大概分4个段落，分别是word头，word正文（包含图片及各种格式），word分页符，word尾。基本分析透彻了就用不着调用office了。直接用易语言就可以制作出想要的word文件。包括多页面的word

redpiggy

忘记说重点了。刚刚说的是word的单页编辑和逐页批量编辑方法，如果你是只是要导出word里的图片的话，给你个最简单的方法。把word文件扩展名改为.zip然后打开文件夹，再进入到word\media\ 里面应该就是这个word文件里的图片了。如果图片不全你还可以看下别的文件夹里，肯定有。找到后批量复制出来并按你的需重命名就行了

redpiggy

word文档一键保存重命名图片最简单方法：甚至电脑都不用安装word或wps，只需要把Word文件解压缩，并打开解压缩后的文件路径：word\media\ 里面应该全是word文件里的图片。批量复制出来再批量重命名就行了。

dych1688

赤璃琴殇 发表于 2023-11-25 14:53
[e=0].版本 2

.子程序 例子

SaveAsPicture这个方法在Shape里边有，在inlineshape里边没有把

花间一壶酒

dych1688 发表于 2024-1-7 12:57
SaveAsPicture这个方法在Shape里边有，在inlineshape里边没有把

.....inlineshape   也是 shape对象  怎么会没有  想知道有没有  你自己测试下不就知道了   

补充内容 (2024-1-8 22:54):
直接复制我的代码  用他的例子文档  觉得能正常使用  至于你看的文档里没有这个方法  那是你看的文档有问题

花间一壶酒

@dych1688   你看没有这个方法  应该是你看的文档有问题  不是我的代码有问题

dych1688

在官方网站找的没有这个方法
Word Visual Basic for Applications (VBA) 参考 | Microsoft Learn



您用的哪个模块，回去我试试

dych1688

赤璃琴殇 发表于 2024-1-8 22:58
@dych1688   你看没有这个方法  应该是你看的文档有问题  不是我的代码有问题
...

https://learn.microsoft.com/zh-cn/office/vba/api/overview/word

在官方文档里边没有找到

dych1688

赤璃琴殇 发表于 2024-1-8 22:58
@dych1688   你看没有这个方法  应该是你看的文档有问题  不是我的代码有问题
...

模块能分享一下吗，咋实现的？

dych1688

赤璃琴殇 发表于 2024-1-8 22:58
@dych1688   你看没有这个方法  应该是你看的文档有问题  不是我的代码有问题
...

刚才测试了一下，确实保存不了