通过JSA操作WPS表格里的WPS文字对象并替换指定内容

对如何通过JSA操作WPS表格，替换WPS文字中指定内容的回复。仅供参考。

function test(){
    let value = Range("A1").Value2
    let a = ActiveSheet.Shapes.Item(1).OLEFormat
    a.Activate()    
    let obj = a.Object.Object    
    let app = obj.Invoke_Get("Application")
    let doc = app.Invoke_Get("ActiveDocument")
    let sel = app.Invoke_Get("Selection")
    let find = sel.Invoke_Get("Find")
    find.Invoke_Set("Text","世界") //需要替换的字符串           
    let replacement = find.Invoke_Get("Replacement")
    replacement.Invoke_Set("Text",value)
    let arr = []
    arr[10]=2
    find.Invoke_Get("Execute",...arr)    
    doc.Invoke_Get("Close",-1)
    app.Invoke_Get("Quit")    
}

function test(){
    let ole = ActiveSheet.Shapes.Item(1).OLEFormat
    ole.Activate()
    let obj = ole.Object.Object
    let app = obj.Invoke_Get("Application")
    let doc = app.Invoke_Get("ActiveDocument")
    let rng = doc.Invoke_Get("Range",0,2)
    rng.Invoke_Set("Text","无敌风火轮")
    doc.Invoke_Get("Close",-1)
    app.Invoke_Get("Quit")
}