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

Añade tu respuesta

Haz clic para o