创建Word程序，在对象中使用“Find”即可实现。请预先插入以下组件：_启动窗口（窗口）Word程序1（Word程序）Word文档集1（Word文档集）横向滚动条1（横向滚动条）姓名框（编辑框）日期框（编辑框）替换按钮（按钮）增加按钮（按钮）代码如下：.版本 2.支持库 eWord2000.支持库 spec.程序集 窗口程序集1.程序集变量 姓名, 文本型, , "0".程序集变量 日期, 文本型, , "0".子程序 __启动窗口_创建完毕' Word程序1.创建 ()' Word文档集1.置程序 (Word程序1, 真)' Word程序1.窗口标题 ＝ “模板替换程序”' 写到文件 (取运行目录 () ＋ “\Temp.doc”, 读入文件 (取运行目录 () ＋ “\调用模板.doc”))' Word文档集1.打开 (取运行目录 () ＋ “\Temp.doc”)_增加按钮_被单击 ().子程序 WORD替换, 整数型.参数 WORD文档集, Word文档集.参数 查找文本, 文本型.参数 替换文本, 文本型.参数 次数, 整数型.局部变量 WORD内容, 文本型.局部变量 对象, 对象.局部变量 对象2, 对象.局部变量 对象3, 对象.局部变量 对象4, 对象.局部变量 变体1, 变体型.局部变量 变体2, 变体型.局部变量 变体3, 变体型.局部变量 N, 整数型.计次循环首 (次数, ) 对象 ＝ WORD文档集.取文档对象 () 对象2 ＝ 对象.读对象型属性 (“Content”, ) 对象3 ＝ 对象2.读对象型属性 (“Find”, ) 对象4 ＝ 对象3.读对象型属性 (“Replacement”, ) 对象4.写属性 (“Text”, 替换文本) 变体1.赋值 (查找文本, ) 变体2.赋值 (真, ) 变体3.赋值 (假, ) .如果真 (对象3.逻辑方法 (“Execute”, 变体1, , , , , , , , 变体3, , 变体2, , , , )) N ＝ N ＋ 1 .如果真结束.计次循环尾 ()返回 (N).子程序 _增加按钮_被单击重定义数组 (姓名, 真, 取数组成员数 (姓名) ＋ 1)重定义数组 (日期, 真, 取数组成员数 (日期) ＋ 1)横向滚动条1.最大位置 ＝ 取数组答贺成员数 (姓名)横向滚动条1.位置 ＝ 取数组成员数 (姓名)_横向滚动条1_位置被改变 ().子程序 _横向滚动条1_位置被改变姓名框.内容 ＝ 姓名扮野 [横向滚动条1.位置]日期框.内容 ＝ 日期 [横向滚动条1.位置清缺派].子程序 _姓名框_失去焦点姓名 [横向滚动条1.位置] ＝ 姓名框.内容.子程序 _日期框_失去焦点日期 [横向滚动条1.位置] ＝ 日期框.内容.子程序 _姓名框_字符输入, 整数型.参数 字符代码, 整数型姓名 [横向滚动条1.位置] ＝ 姓名框.内容.子程序 _日期框_字符输入, 整数型.参数 字符代码, 整数型日期 [横向滚动条1.位置] ＝ 日期框.内容.子程序 _替换按钮_被单击.局部变量 Temp, 整数型调试输出 (取数组成员数 (姓名))Word程序1.创建 ()Word文档集1.置程序 (Word程序1, 真)Word程序1.窗口标题 ＝ “模板替换程序”写到文件 (取运行目录 () ＋ “\Temp.doc”, 读入文件 (取运行目录 () ＋ “\调用模板.doc”))Word文档集1.打开 (取运行目录 () ＋ “\Temp.doc”).计次循环首 (取数组成员数 (姓名), Temp) 调试输出 (Word文档集1.打开 (取运行目录 () ＋ “\Temp.doc”)) Word程序1.显示 ＝ 假 WORD替换 (Word文档集1, “【姓名】”, 姓名 [Temp], 1) WORD替换 (Word文档集1, “【日期】”, 日期 [Temp], 1) Word文档集1.保存 (取运行目录 () ＋ “\” ＋ 日期 [Temp] ＋ “.doc”) Word文档集1.关闭 ().计次循环尾 ()Word文档集1.释放 ()Word程序1.退出 ()Word程序1.释放 ().子程序 __启动窗口_将被销毁Word文档集1.释放 ()Word程序1.退出 ()Word程序1.释放 ()删除文件 (取运行目录 () ＋ “\Temp.doc”)使用方法：在程序目录下创建一个.doc文件，名为“调用模板.doc”，在此文档中添加你需要的模板，并把姓名需要的地方改为“【姓名】”，日期需要的地方改为“【日期】”，之后进入程序操作即可。如果需要其它的通用型源码（比如指定替换），请追问。演示图片过大无法上传，请见谅。源码下载：
标签：word,文件夹,字符
