wps在不激活的状态下，获取查找文本的位置。

阿丁

wps打开2个文档，文档1和文档2，在文档2激活的状态下，从文档1.docx中找到“问题1”三个字，并并返回位置。下面代码在word中可行，但在wps中不可行，当文档1激活的状态下可行，文档2激活的状态就默认从文档2中找了。求大神帮忙。

  

子程序名	返回值类型	公开	备 注
查找文本并返回位置_丁	整数型		没找到返回-1，wps文档不激活,不好使；word好使
参数名	类 型	参考	可空	数组	备 注
要查找的文本	文本型
文件名	文本型

变量名	类 型	静态	数组	备 注
源范围	对象
查找对象	对象
startPos	整数型
endPos	整数型
查找结果	逻辑型
WordApp	对象
文档集合	对象
文档1	对象

' =================下面的查找对激活的文档好使=====================
文档集合 ＝ WORD对象.读对象型属性 (“Documents”, )
文档1 ＝ 文档集合.对象型方法 (“Item”, 文件名)
激活文档 (文档1)
' 获取文档内容范围
源范围 ＝ 文档1.读对象型属性 (“Content”, )
' 设置查找内容为   标识1
查找对象 ＝ 源范围.读对象型属性 (“Find”, )
查找对象.写属性 (“Text”, 要查找的文本)
查找对象.写属性 (“Forward”, 真)  ' 向后查找
查找对象.写属性 (“Wrap”, 0)  ' 不跨范围搜索
' 执行查找
查找结果 ＝ 查找对象.逻辑方法 (“Execute”, )
' 判断是否找到
如果 (查找结果 ＝ 真)
startPos ＝ 源范围.读数值属性 (“Start”, )
返回 (startPos)

endPos ＝ 源范围.读数值属性 (“End”, )
返回 (endPos)

.版本 2<br /> <br /> .子程序 查找文本并返回位置_丁, 整数型, 公开, 没找到返回-1，wps文档不激活,不好使；word好使<br /> .参数 要查找的文本, 文本型, 可空<br /> .参数 文件名, 文本型<br /> .局部变量 源范围, 对象<br /> .局部变量 查找对象, 对象<br /> .局部变量 startPos, 整数型<br /> .局部变量 endPos, 整数型<br /> .局部变量 查找结果, 逻辑型<br /> .局部变量 WordApp, 对象<br /> .局部变量 文档集合, 对象<br /> .局部变量 文档1, 对象<br /> <br /> ' =================下面的查找对激活的文档好使=====================<br /> 文档集合 ＝ WORD对象.读对象型属性 (“Documents”, )<br /> 文档1 ＝ 文档集合.对象型方法 (“Item”, 文件名)<br /> 激活文档 (文档1)<br /> ' 获取文档内容范围<br /> 源范围 ＝ 文档1.读对象型属性 (“Content”, )<br /> ' 设置查找内容为   标识1<br /> 查找对象 ＝ 源范围.读对象型属性 (“Find”, )<br /> 查找对象.写属性 (“Text”, 要查找的文本)<br /> 查找对象.写属性 (“Forward”, 真)  ' 向后查找<br /> 查找对象.写属性 (“Wrap”, 0)  ' 不跨范围搜索<br /> ' 执行查找<br /> 查找结果 ＝ 查找对象.逻辑方法 (“Execute”, )<br /> ' 判断是否找到<br /> .如果 (查找结果 ＝ 真)<br />     startPos ＝ 源范围.读数值属性 (“Start”, )<br />     返回 (startPos)<br /> <br /> .否则<br />     endPos ＝ 源范围.读数值属性 (“End”, )<br />     返回 (endPos)

阿丁

谁来帮帮忙

阳光适若舒

不行啊，BUG太多了，还不太全面

阿丁

阳光适若舒 发表于 2025-2-19 18:54
不行啊，BUG太多了，还不太全面

感谢帮忙，试了好几天也没弄成功