Como accesar open office
local array laNoArgs[1]
local loSManager, loSDesktop, loStarDoc, loReflection, loPropertyValue, loCursor
loSManager = createobject( "Com.Sun.Star.ServiceManager.1" )
loSDesktop = loSManager.createInstance( "com.sun.star.frame.Desktop" )
comarray( loSDesktop, 10 )
loReflection = loSManager.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.
loStarDoc = loSDesktop.LoadComponentFromUrl( "staroffice.factory:swriter", "_blank", 0, @laNoargs )
loCursor = loStarDoc.text.CreateTextCursor()
loStarDoc.text.InsertString( loCursor, "HELLO FROM VFP", .f. )
Function createStruct( toReflection, tcTypeName )
local loPropertyValue, loTemp
loPropertyValue = createobject( "relation" )
toReflection.forName( tcTypeName ).createobject( @loPropertyValue )
return ( loPropertyValue )
endproc
Suerte