Code: Select all
Sub PasteContents
'Paste contents without notes and formatting
aPaste(0).name = "Flags"
aPaste(0).Value = "SVDF"
aPaste(1).name = "FormulaCommand"
aPaste(1).Value = 0
aPaste(2).name = "SkipEmptyCells"
aPaste(2).Value = false
aPaste(3).name = "Transpose"
aPaste(3).Value = false
aPaste(4).name = "AsLink"
aPaste(4).Value = false
aPaste(5).name = "MoveMode"
aPaste(5).Value = 4
oDoc = ThisComponent
vDispatcher = createUnoService( "com.sun.star.frame.DispatchHelper" )
vFrame = ThisComponent.CurrentController().getFrame
vDispatcher.executeDispatch( vFrame, ".uno:InsertContents", "", 0, aPaste() )
oDummy = oDoc.createInstance( "com.sun.star.sheet.SheetCellRanges" )
oDoc.CurrentController.Select( oDummy )