关于word文字批量替换次数问题（查找文本数量）

圆圈

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

检查 (Word程序1.创建 ())
检查 (Word文档集1.置程序 (Word程序1, 假))
检查 (Word文档集1.打开 (“C:\Users\Administrator\Desktop\1.doc”))
Word程序1.显示 ＝ 真

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

Word文档集1.释放 ()
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)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

信息框 (Word替换 (Word文档集1, 编辑框1.内容, 编辑框2.内容, 1), 0, , 取窗口句柄 ())
Word文档集1.保存 (“C:\Users\Administrator\Desktop\2.doc”)

i支持库列表	支持库注释
eWord2000	WORD2000支持库

.版本 2<br /> .支持库 eWord2000<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 检查 (Word程序1.创建 ())<br /> 检查 (Word文档集1.置程序 (Word程序1, 假))<br /> 检查 (Word文档集1.打开 (“C:\Users\Administrator\Desktop\1.doc”))<br /> Word程序1.显示 ＝ 真<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> Word文档集1.释放 ()<br /> Word程序1.退出 ()<br /> <br /> .子程序 Word替换, 整数型, , 返回被成功替换的次数<br /> .参数 Word文档集, Word文档集<br /> .参数 查找文本, 文本型<br /> .参数 替换文本, 文本型<br /> .参数 次数, 整数型<br /> .局部变量 WORD内容, 文本型<br /> .局部变量 对象, 对象<br /> .局部变量 对象2, 对象<br /> .局部变量 对象3, 对象<br /> .局部变量 对象4, 对象<br /> .局部变量 变体1, 变体型<br /> .局部变量 变体2, 变体型<br /> .局部变量 变体3, 变体型<br /> .局部变量 N, 整数型<br /> <br /> <br /> .计次循环首 (次数, )<br />     对象 ＝ Word文档集.取文档对象 ()<br />     对象2 ＝ 对象.读对象型属性 (“Content”, )<br />     对象3 ＝ 对象2.读对象型属性 (“Find”, )<br />     对象4 ＝ 对象3.读对象型属性 (“Replacement”, )<br />     对象4.写属性 (“Text”, 替换文本)<br />     变体1.赋值 (查找文本, )<br />     变体2.赋值 (真, )<br />     变体3.赋值 (假, )<br />     .如果真 (对象3.逻辑方法 (“Execute”, 变体1, , , , , , , , 变体3, , 变体2, , , , ))<br />         N ＝ N ＋ 1<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (n)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> <br /> 信息框 (Word替换 (Word文档集1, 编辑框1.内容, 编辑框2.内容, 1), 0, , 取窗口句柄 ())<br /> Word文档集1.保存 (“C:\Users\Administrator\Desktop\2.doc”)

这个替换源码得手动输入替换的次数，如何查找文本数量并替换
附源码：
WORD替换.e (5.01 KB, 下载次数: 7)

2023-8-9 10:39 上传

点击文件名下载附件

时髦猪

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
替换次数	整数型

替换次数 ＝ 替换内容 (Word文档集1, 编辑框1.内容, 编辑框2.内容)
信息框 (到文本 (替换次数), 0, , 取窗口句柄 ())
Word文档集1.保存 (“2.doc”)

子程序名	返回值类型	公开	备 注
替换内容	整数型		返回被成功替换的次数,在当前活动文档中替换
参数名	类 型	参考	可空	数组	备 注
Word文档集	Word文档集
寻找文本	文本型
替换文本	文本型

变量名	类 型	静态	数组	备 注
对象4	对象
对象3	对象
变体1	变体型
变体2	变体型
变体3	变体型
变体4	变体型
N	整数型

对象3 ＝ Word文档集.取文档对象 ().读对象型属性 (“Content”, ).读对象型属性 (“Find”, )
对象3.方法 (“ClearFormatting”, )
对象4 ＝ 对象3.读对象型属性 (“Replacement”, )
对象4.方法 (“ClearFormatting”, )
对象4.写属性 (“Text”, 替换文本)
变体1.赋值 (寻找文本, )
变体2.赋值 (2, )  ' 2  wdReplaceAll
变体3.赋值 (假, )  ' 区分半角/全角
变体4.赋值 (1, )  ' wdFindContinue
如果真 (对象3.逻辑方法 (“Execute”, 变体1, , , , , , , 变体4, 变体3, , 变体2, , , , ))
N ＝ N ＋ 1
返回 (N)
对象3.方法 (“Execute”, 变体1, , , , , , , 变体4, 变体3, , 变体2, , , , )

i支持库列表	支持库注释
eWord2000	WORD2000支持库

.版本 2<br /> .支持库 eWord2000<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 替换次数, 整数型<br /> <br /> 替换次数 ＝ 替换内容 (Word文档集1, 编辑框1.内容, 编辑框2.内容)<br /> 信息框 (到文本 (替换次数), 0, , 取窗口句柄 ())<br /> Word文档集1.保存 (“2.doc”)<br /> <br /> <br /> .子程序 替换内容, 整数型, , 返回被成功替换的次数,在当前活动文档中替换<br /> .参数 Word文档集, Word文档集<br /> .参数 寻找文本, 文本型<br /> .参数 替换文本, 文本型<br /> .局部变量 对象4, 对象<br /> .局部变量 对象3, 对象<br /> .局部变量 变体1, 变体型<br /> .局部变量 变体2, 变体型<br /> .局部变量 变体3, 变体型<br /> .局部变量 变体4, 变体型<br /> .局部变量 N, 整数型<br /> <br /> 对象3 ＝ Word文档集.取文档对象 ().读对象型属性 (“Content”, ).读对象型属性 (“Find”, )<br /> 对象3.方法 (“ClearFormatting”, )<br /> 对象4 ＝ 对象3.读对象型属性 (“Replacement”, )<br /> 对象4.方法 (“ClearFormatting”, )<br /> 对象4.写属性 (“Text”, 替换文本)<br /> 变体1.赋值 (寻找文本, )<br /> 变体2.赋值 (2, )  ' 2  wdReplaceAll<br /> 变体3.赋值 (假, )  ' 区分半角/全角<br /> 变体4.赋值 (1, )  ' wdFindContinue<br /> .如果真 (对象3.逻辑方法 (“Execute”, 变体1, , , , , , , 变体4, 变体3, , 变体2, , , , ))<br />     N ＝ N ＋ 1<br /> .如果真结束<br /> 返回 (N)<br /> 对象3.方法 (“Execute”, 变体1, , , , , , , 变体4, 变体3, , 变体2, , , , )

圆圈

时髦猪 发表于 2023-8-9 13:29
[e=4].版本 2
.支持库 eWord2000

谢谢，只不过替换次数不对，我找了几个节点调试输出，咋都没找到替换次数