>Is there somewhere to read how to Automate OpenOffice with VFP?
>TIA
The following samples were recently posted by Sönke Freitag on the dfpug forum.
LOCAL ARRAY laNoArgs[1]
LOCAL oSManager, oSDesktop, oStarDoc, oCursor, oSearch, oResult, oFound
oSManager = CREATEOBJECT("Com.Sun.Star.ServiceManager.1")
oSDesktop = oSManager.createInstance("com.sun.star.frame.Desktop")
COMARRAY(oSDesktop, 10)
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.
________________________________________
New Document
oStarDoc = oSDesktop.loadComponentFromURL( "private:factory/swriter", "_blank", 0, @laNoArgs )
________________________________________
Load existing one
________________________________________
Insert some Text
oText = oStarDoc.TEXT
oTextCursor = oText.CreateTextCursor
oTextCursor.gotoEnd(.F.)
oText.insertString( oTextCursor, "Hello"+CHR(13)+"World...", .F. )
________________________________________
Close
FUNCTION createStruct(toReflection,tcTypeName )
LOCAL loPropertyValue
loPropertyValue = CREATEOBJECT( "relation" )
toReflection.forName(tcTypeName).CREATEOBJECT(@loPropertyValue)
RETURN ( loPropertyValue )
ENDFUNC
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
