Copiar texto de un doc De Open office
buenos días, estoy trabado en un trabajo porque no logro copiar el texto de un archivo .odt /.doc cuando la pc tiene instalado Open Office.
lo quiero hacer desde FOXPRO, pero si lo saben de cualquier otro lenguaje también me sirve.
lo empecé así... Pero lo abro y... Ahí me quedo
LOCAL ARRAY laNoArgs[1] LOCAL oSManager, oSDesktop, oStarDoc, oCursor vbLf = Chr(10) l_ruta_archivo="C:\Informe.doc" *- En caso de que no esté funcionando OO se pone en marcha oSManager = CreateObject("Com.Sun.Star.ServiceManager.1") *- Se crea un Desktop oSDesktop = oSManager.createInstance("com.sun.star.frame.Desktop") COMARRAY(oSDesktop, 10) oSDesktop.executeDesktop(URL, "com.sun.star.frame.SelectAll", "", 0, Array()) loReflection = oSManager.createInstance("com.sun.star.reflection.CoreReflection" ) COMARRAY( loReflection, 10 ) loPropertyValue = createStruct( @loReflection,"com.sun.star.beans.PropertyValue" ) laNoArgs[1] = loPropertyValue laNoArgs[1].name = "ReadOnly" laNoArgs[1].value = .F. Url = oooconverttourl( l_ruta_archivo) oStarDoc = oSDesktop.LoadComponentFromUrl(url, "_blank",0, @laNoargs)
Desde ya muchas gracias
Ariel D'Alfeo