| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 查找文本并返回位置_丁 | 整数型 | 没找到返回-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)