怎么替换文件夹里word的字符

发布网友发布时间：2022-05-03 02:52

共2个回答

热心网友时间：2023-10-08 16:52

创建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”，在此文档中添加你需要的模板，并把姓名需要的地方改为“【姓名】”，日期需要的地方改为“【日期】”，之后进入程序操作即可。如果需要其它的通用型源码（比如指定替换），请追问。演示图片过大无法上传，请见谅。源码下载：

热心网友时间：2023-10-08 16:53

　　1、如图，我们把文档中“”全部替换为“百度”

　　2、点击“编辑”－“替换”（或按快捷键ctrl+h）调出替换对话框。

　　3、在“查找和替换”对话框里，查找内容填写“”,替换为“百度”。点击全部替换。

　　4、全部替换后，关闭对话框。完成