Modest_
.版本 2
.子程序 _按钮1_被单击
Word程序1.创建 ()
Word文档集1.置程序 (Word程序1, 假)
Word文档集1.打开 (取运行目录 () ＋ “\1.doc”)
Word程序1.显示 ＝ 真
WORD替换 (Word文档集1, “a”, “123”, 3)
WORD替换 (Word文档集1, “b”, “456”, 3)
Word文档集1.保存 (取运行目录 () ＋ “\1.doc”)
Word程序1.退出 ()
.子程序 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)
易语言word替换文本后打印
完全按你的要求写的一个程序呢，以下为部分代码切图，具体代码请下载查看，另外word模板文件中的内容你自己更改一下吧！
后续代码切图略
易语言WORD替换问题求教
在下载好这个易语言源码后，将你的 模板.doc复制到同文件夹下，OK！
易语言中替换word文档指定字符串的问题
创建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”，在此文档中添加你需要的模板，并把姓名需要的地方改为“【姓名】”，日期需要的地方改为“【日期】”，之后进入程序操作即可。
如果需要其它的通用型源码（比如指定替换），请。
演示图片过大无法上传，请见谅。
源码下载：
易语言如何用excel替换word?
不如直接用word的邮件合并功能，word负责将姓名、身份证、银行卡号、联系人、联系方式、日期等信息排版好，然后从excel中导入表格内容。 邮件合并就是word负责界面，excel负责实质内容 。
易语言中替换word文档
这句就是错的了,
Word文档集1.打开(取运行目录()+"\temp.doc")
首先谢谢你，文档有保存改了，内容依然没有替换。除了文件名改为编辑框的内容，新建的word内容和1.doc的内容一样。帮忙在看看。
前段时间下载了你的一个易语言源码，用于word文档中内容替换的。我用你的源码发现一个问题是只能
亲
WORD替换 (Word文档集1, “AA”, 编辑框1.内容, 1)
这个中最后一个参数是次数，你可以将替换次数设大一些吧，比如可以
WORD替换 (Word文档集1, “AA”, 编辑框1.内容, 50)来自：求助得到的回答
易语言中替换word文档
源码已上传
转载请注明出处51数据库 » word替换域易语言 易语言WORD替换代码修改
