WORD文件加图片易语言源码

WORD文件加图片易语言源码

@泪闯天涯

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

Word加图片 (取运行目录 () ＋ “	est.doc”, 取运行目录 () ＋ “	est.jpg”)
信息框 (“图片添加完毕，请手工打开WORD文件看效果”, #信息图标, “操作提示”)

.子程序 Word加图片, , , By:(彬)泪闯天涯
.参数 Word文件, 文本型, , DOC
.参数 图片文件, 文本型
.局部变量 objWord, 对象, , , Word.Application
.局部变量 objDoc, 对象, , , Word.Documents
.局部变量 objSelection, 对象
.局部变量 objShape, 对象, , , 该对象可以修改图片样式等

objWord.创建 (“Word.Application”, )  ' 创建WORD程序对象
objWord.写属性 (“Visible”, 真)  ' 更改可视属性
objDoc ＝ objWord.读对象型属性 (“Documents”, )  ' 获取文档对象
objDoc ＝ objDoc.对象型方法 (“Open”, Word文件, , , , )  ' 打开文件
objSelection ＝ objWord.对象型方法 (“Selection”, )
' ↓插入图片
objShape ＝ objSelection.读对象型属性 (“InlineShapes”, ).对象型方法 (“AddPicture”, 图片文件)
' 插入图片后获得一个objShape对象，该对象可以修改图片样式等
objWord.方法 (“quit”, 真)  ' 保存并退出
objWord.清除 ()