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

Z0206JC

单击F1键 这个图片自动保存到当前打开软件的文件夹 并把这个图片命名为“1” 下一个命名为“2”

现在好像只能用鼠标右键单击 然后图片另存为，有没有什么办法把这些步骤变为一键解决的。

花间一壶酒

  

子程序名	返回值类型	公开	备 注
例子

变量名	类 型	静态	数组	备 注
程序对象	对象
文档集	对象
图片数量	整数型
i	整数型
图片类型	整数型

程序对象.创建 (“word.Application”, )  ' 打开word
文档集 ＝ 程序对象.读对象型属性 (“Documents”, )  ' 获取文档集对象
程序对象.写属性 (“Visible”, 真)  ' 程序可视  如果要隐藏就填 假
文档集.方法 (“open”, 取运行目录 () ＋ “\新建 Microsoft Word 文档.doc”)  ' 打开文档 参数 文档的路径
图片数量 ＝ 文档集.对象型方法 (“Item”, 1).读对象型属性 (“InlineShapes”, ).读数值属性 (“Count”, )  ' 读取图片数量
计次循环首 (图片数量, i)
图片类型 ＝ 文档集.对象型方法 (“Item”, 1).读对象型属性 (“InlineShapes”, ).读对象型属性 (“Item”, i).读数值属性 (“Type”, )  ' 1=代表嵌入式图片  2=代表链接的图片  3=代表嵌入的 OLE 对象  4=代表链接的 OLE 对象  5=代表 ActiveX 控件
如果真 (图片类型 ＝ 3)
文档集.对象型方法 (“Item”, 1).读对象型属性 (“InlineShapes”, ).读对象型属性 (“Item”, i).方法 (“SaveAsPicture”, 取运行目录 () ＋ “\” ＋ 到文本 (i) ＋ “.PNG”)  ' 写出图片 参数路径

计次循环尾 ()
文档集.对象型方法 (“Item”, 1).方法 (“Close”, )  ' 关闭文档
程序对象.方法 (“Quit”, )  ' 关闭word
程序对象.清除 ()  ' 清除对象

.版本 2<br /> <br /> .子程序 例子<br /> .局部变量 程序对象, 对象<br /> .局部变量 文档集, 对象<br /> .局部变量 图片数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 图片类型, 整数型<br /> <br /> 程序对象.创建 (“word.Application”, )  ' 打开word<br /> 文档集 ＝ 程序对象.读对象型属性 (“Documents”, )  ' 获取文档集对象<br /> 程序对象.写属性 (“Visible”, 真)  ' 程序可视  如果要隐藏就填 假<br /> 文档集.方法 (“open”, 取运行目录 () ＋ “\新建 Microsoft Word 文档.doc”)  ' 打开文档 参数 文档的路径<br /> 图片数量 ＝ 文档集.对象型方法 (“Item”, 1).读对象型属性 (“InlineShapes”, ).读数值属性 (“Count”, )  ' 读取图片数量<br /> .计次循环首 (图片数量, i)<br />     图片类型 ＝ 文档集.对象型方法 (“Item”, 1).读对象型属性 (“InlineShapes”, ).读对象型属性 (“Item”, i).读数值属性 (“Type”, )  ' 1=代表嵌入式图片  2=代表链接的图片  3=代表嵌入的 OLE 对象  4=代表链接的 OLE 对象  5=代表 ActiveX 控件<br />     .如果真 (图片类型 ＝ 3)<br />         文档集.对象型方法 (“Item”, 1).读对象型属性 (“InlineShapes”, ).读对象型属性 (“Item”, i).方法 (“SaveAsPicture”, 取运行目录 () ＋ “\” ＋ 到文本 (i) ＋ “.PNG”)  ' 写出图片 参数路径<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 文档集.对象型方法 (“Item”, 1).方法 (“Close”, )  ' 关闭文档<br /> 程序对象.方法 (“Quit”, )  ' 关闭word<br /> 程序对象.清除 ()  ' 清除对象

如果你只是要把所有图片输出出来  大致就这样

Z0206JC

别沉呀 哥哥们

Z0206JC

有人吗 ！！！！！！！！！！

z22

花钱定制吧

Z0206JC

z22 发表于 2023-11-25 00:08
花钱定制吧

只要能把图片保存出来 什么模拟点击的都可以

很安静

学习学习

Z0206JC

用了笨方法，word最基本的快捷键，两次F8 然后Ctrl+f10 再然后s 再然后保存 但是不能指定路径

b0y

没接触过word

花间一壶酒

Z0206JC 发表于 2023-11-25 02:32
用了笨方法，word最基本的快捷键，两次F8 然后Ctrl+f10 再然后s 再然后保存 但是不能指定路径 ...

可以用对象的方式来操作  但是说了  你也写不好啊  如果需要给你写例子  500JB又不够....