pegar desde el porta papeles en calc desde vb6

[wing]

no se si la pregunta es clara pero tengo unos datos en el portapapeles y quiero pegarlo en el calc pero no se como hacerlo

el ejemplo para excel es asi

Código: Seleccionar todo

 Dim sData As String
   sData = "juan"
   Clipboard.Clear

   Clipboard.SetText sData
   
   'Create a new workbook in Excel
   Dim oExcel As Object
   Dim oBook As Object
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   

   'Paste the data
   oBook.Worksheets(1).Range("A1").Select
   oBook.Worksheets(1).Paste
   
   'Save the Workbook and Quit Excel
   oBook.SaveAs "C:\Book1.xls"
   oExcel.Quit

y en vb para open office es asi

Código: Seleccionar todo

Option Explicit
Dim args()
Dim objServiceManager As Object
Dim objDesktop As Object
Dim objDocument As Object
Dim objHoja As Object

Private Sub Form_Load()
 
   Clipboard.Clear

   Clipboard.SetText ("wwwwww")
   
Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set objDocument = objDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, args)
Set objHoja = objDocument.getSheets().getByIndex(0)
   
   Call objHoja.getCellByPosition(0, 0).Paste

     
End Sub

pero el .paste no funciona me podrian guiar porfavor gracias de antemano

[dms]

Hola. Buscando algo para mi encontre esto, espero te sirva. Saludos

fuente. http://user.services.openoffice.org/es/ ... les#p18590



Sub portapapeles


dim document as object
dim dispatcher as object
dim args(0) as new com.sun.star.beans.PropertyValue

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
args(0).Name = "SelectedFormat"
args(0).Value = 1 'formato RTF
dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0, args())

[SLV-es]

Si con las respuestas obtenidas consideras que se ha dado solución a tu consulta (aunque la solución obtenida sea que no la hay ), por favor, marca el tema como resuelto.
Si no sabes cómo, por favor, lee Como marcar como [RESUELTO] un tema.
Gracias por participar en el foro y ayudar a que todo esté ordenado.