Question

如何用易语言写wps文字的“替换”命令？

想用易语言写一个程序，替换wps文字里的指定文字，可是找不到合适的代码。
网上找了个“wps开发接口”，关于替换例程如下，但是我却不知道怎么用易语言来写
' 本示例用“Goodbye”替换选定内容中的“Hello”。
Sub Replacement_Text()
With Selection.Find
.Text = "Hello"
.Replacement.Text = "Goodbye"
.Execute Replace:=wpsReplaceAll
End With
End Sub

网上又搜了一个WPS2005操作类，它的替换内容的代码如下，但是我测试却不行：
.子程序 替换内容, 整数型, 公开, 返回被成功替换的次数,在当前活动文档中替换

.参数 寻找文本, 文本型
.参数 替换文本, 文本型
.参数 次数, 整数型, 可空, 默认替换1次
.局部变量 WORD内容, 文本型
.局部变量 对象3, 对象
.局部变量 对象4, 对象
.局部变量 变体1, 变体型
.局部变量 变体2, 变体型
.局部变量 变体3, 变体型
.局部变量 N, 整数型

.如果真 (是否为空 (次数))
次数 ＝ 1
.如果真结束
.计次循环首 (次数, )
对象3 ＝ WPS对象.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Selection”, ).读对象型属性 (“Find”, )
' 对象3.查看 ()
对象4 ＝ 对象3.读对象型属性 (“Replacement”, )
对象4.写属性 (“Text”, 替换文本)
变体1.赋值 (寻找文本, )
变体2.赋值 (真, )
变体3.赋值 (假, )
.如果真 (对象3.逻辑方法 (“Execute”, 变体1, , , , , , , , 变体3, , 变体2, , , , ))
N ＝ N ＋ 1

.如果真结束

.计次循环尾 ()
返回 (N)

请大家指点迷津，谢谢！

若以下回答无法解决问题，邀请你更新回答

Answer 1

你是怎么样应用那个类的代码来看看。说不定是你调用的方法不对呢。

追答

我要的不是操作类源码，而是你写的替换内容例程

追问

在已上传的源码里测试，那个替换也不行

追答

你的源码写错了吧，你写的代码是wps表格的操作，而不是wps文字的。我自己试试先

追问

这个源码是wps文字里的表格读写

追答

经检查，是WPS2005操作类里面的问题。它的替换内容子程序代码中：
对象3 ＝ WPS对象.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Selection”, ).读对象型属性 (“Find”, )
不知道是版本旧了还是作者写错了，Document中无Selection属性导致变量对象3为空，因此接下来的替换命令自然就出错了。经过修改不知道什么原因只能寻找到指定内容而替换不了。

追问

只差最后一步啊，要是都能搞定，我追加100分

追答

重赏之下加把力，终于解决。看私信