易语言实现word插入图片并设置图片大小

lentil

比如我有1.jpg、2.jpg、3.jpg几张图片
用易语言自动把这些图片的插入到word，并设置图片的宽度为8.5cm
用易语言怎么操作
如果有dome就最好
谢谢

寒潮

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
局_文件名	文本型
局_Word对象	对象
局_Documents对象	对象
局_Document对象	对象
局_Window对象	对象
局_Shapes对象	对象
局_计次	整数型

如果真 (打开文件通用对话框.打开 () ＝ 假)
返回 ()
局_文件名 ＝ 打开文件通用对话框.文件名
局_Word对象.创建 (“Word.Application”, )
局_Word对象.写属性 (“Visible”, 假)
局_Documents对象 ＝ 局_Word对象.读对象型属性 (“Documents”, )
局_Document对象 ＝ 局_Documents对象.对象型方法 (“Open”, 打开文件通用对话框.文件名)
局_Window对象 ＝ 局_Word对象.读对象型属性 (“ActiveWindow”, )
局_Shapes对象 ＝ 局_Document对象.读对象型属性 (“Shapes”, )
计次循环首 (3, 局_计次)
局_Shapes对象.对象型方法 (“AddPicture”, 取运行目录 () ＋ “\” ＋ 到文本 (局_计次) ＋ “.jpg”, , , 0, 局_计次 × 320 － 320 ＋ 8, 320, 320, )
计次循环尾 ()
局_Document对象.方法 (“Save”, )
局_Documents对象.方法 (“Close”, )
局_Word对象.方法 (“Quit”, )
局_Window对象.清除 ()
局_Document对象.清除 ()
局_Documents对象.清除 ()
局_Word对象.清除 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 局_Word对象, 对象<br /> .局部变量 局_Documents对象, 对象<br /> .局部变量 局_Document对象, 对象<br /> .局部变量 局_Window对象, 对象<br /> .局部变量 局_Shapes对象, 对象<br /> .局部变量 局_计次, 整数型<br /> <br /> .如果真 (打开文件通用对话框.打开 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> 局_文件名 ＝ 打开文件通用对话框.文件名<br /> 局_Word对象.创建 (“Word.Application”, )<br /> 局_Word对象.写属性 (“Visible”, 假)<br /> 局_Documents对象 ＝ 局_Word对象.读对象型属性 (“Documents”, )<br /> 局_Document对象 ＝ 局_Documents对象.对象型方法 (“Open”, 打开文件通用对话框.文件名)<br /> 局_Window对象 ＝ 局_Word对象.读对象型属性 (“ActiveWindow”, )<br /> 局_Shapes对象 ＝ 局_Document对象.读对象型属性 (“Shapes”, )<br /> .计次循环首 (3, 局_计次)<br />     局_Shapes对象.对象型方法 (“AddPicture”, 取运行目录 () ＋ “\” ＋ 到文本 (局_计次) ＋ “.jpg”, , , 0, 局_计次 × 320 － 320 ＋ 8, 320, 320, )<br /> .计次循环尾 ()<br /> 局_Document对象.方法 (“Save”, )<br /> 局_Documents对象.方法 (“Close”, )<br /> 局_Word对象.方法 (“Quit”, )<br /> 局_Window对象.清除 ()<br /> 局_Document对象.清除 ()<br /> 局_Documents对象.清除 ()<br /> 局_Word对象.清除 ()

仅供参考。

乐呵熊

学习下~~~！！

TXHJYLT

学习下~~~！！

饭团蛛丝马迹

进来学习了

jytafw123yy

看一看忆

我的yyy123

学习一下