.版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 Word加图片 (取运行目录 () ＋ “\test.doc”, 取运行目录 () ＋ “\test.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.清除 ()