易语言WORD打印操作功能例子

“talk.ini”为谈话单配置文件，供talk.exe初始化列表
“当前.ini”为主程序调用talk.exe前自动生成的查找到文件

.如果 (选择列表框谈话单.现行选中项 ＞ -1)
模板文件名 ＝ 当前目录 ＋ “talk\” ＋ 文件名数组 [选择列表框谈话单.现行选中项 ＋ 1]
.如果 (文件是否存在 (模板文件名))
复制文件 (模板文件名, 临时文件名)
WORD对象.创建 (“Word.Application”, )
.如果真 (WORD对象.是否为空 () ＝ 真)
信息框 (“不能创建word对象，可能你系统没有装word”, #错误图标, )
返回 ()
.如果真结束
DOC对象 ＝ WORD对象.读对象型属性 (“Documents”, )
DOC对象.方法 (“open”, 临时文件名)
配置文件 ＝ 当前目录 ＋ “当前.ini”
加入成员 (查找内容数组, “p_name”)
加入成员 (查找内容数组, “p_age”)
加入成员 (查找内容数组, “p_sex”)
加入成员 (查找内容数组, “p_bed”)
加入成员 (查找内容数组, “p_id”)
.计次循环首 (取数组成员数 (查找内容数组), i)
加入成员 (替换内容数组, 读配置项 (配置文件, “当前”, 查找内容数组 [i], ))
WORD对象.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).读对象型属性 (“Find”, ).对象型方法 (“Execute”, 查找内容数组 [i], , , , , , , 1, , 替换内容数组 [i], 2, , , , )
.计次循环尾 ()
WORD对象.写属性 (“Visible”, 真)
结束 ()
.否则
信息框 (“模板文件不存在！”, 0, “出错提示”)