Untitled

LibreOfficeCalc:
> REM  *****  BASIC  *****
> 
> 
> sub Main
> rem ----------------------------------------------------------------------
> rem define variables
> dim document   as object
> dim dispatcher as object
> rem ----------------------------------------------------------------------
> rem get access to the document
> document   = ThisComponent.CurrentController.Frame
> dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
> 
> rem ----------------------------------------------------------------------
> dim args1(0) as new com.sun.star.beans.PropertyValue
> args1(0).Name = "ToPoint"
> args1(0).Value = "$A$1"
> 
> dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
> 
> rem ----------------------------------------------------------------------
> dim args2(0) as new com.sun.star.beans.PropertyValue
> args2(0).Name = "StringName"
> args2(0).Value = "sgfsd"
> 
> dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
> 
> rem ----------------------------------------------------------------------
> dim args3(0) as new com.sun.star.beans.PropertyValue
> args3(0).Name = "ToPoint"
> args3(0).Value = "$A$2"
> 
> dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
> 
> rem ----------------------------------------------------------------------
> dim args4(0) as new com.sun.star.beans.PropertyValue
> args4(0).Name = "StringName"
> args4(0).Value = "gdfg"
> 
> dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args4())
> 
> rem ----------------------------------------------------------------------
> dim args5(0) as new com.sun.star.beans.PropertyValue
> args5(0).Name = "ToPoint"
> args5(0).Value = "$A$3"
> 
> dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
> 
> rem ----------------------------------------------------------------------
> dim args6(0) as new com.sun.star.beans.PropertyValue
> args6(0).Name = "StringName"
> args6(0).Value = "dfgsfd"
> 
> dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args6())
> 
> rem ----------------------------------------------------------------------
> dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())
> 
> 
> end sub
>