Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub rowduplicate
- dim document as object
- dim dispatcher as object
- document = ThisComponent.CurrentController.Frame
- dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
- dim args1(0) as new com.sun.star.beans.PropertyValue
- args1(0).Name = "Sel"
- args1(0).Value = false
- dispatcher.executeDispatch(document, ".uno:GoToStartOfRow", "", 0, args1())
- dim args2(0) as new com.sun.star.beans.PropertyValue
- args2(0).Name = "Sel"
- args2(0).Value = true
- dispatcher.executeDispatch(document, ".uno:GoToEndOfRow", "", 0, args2())
- dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
- dispatcher.executeDispatch(document, ".uno:InsertRows", "", 0, Array())
- dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
- end sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement