OPEN OFFICE

[LOULOU]

Has anyone trying to use an open office object and haviong code for dealing with this object ?

Thanks

[GodandRock]

wat do u mean wen u say "open office"???

[herewasplato]

wat do u mean wen u say "open office"???

http://www.openoffice.org/

[JSThePatriot]

Excellent Program!! I havent used it with AutoIt.

[DaleHohm]

Has anyone trying to use an open office object and haviong code for dealing with this object ?

Thanks

"object"? Are you suggesting that OOo has a COM interface? Being cross-platform I didn't expect that to ever be the case... if you know differently, please provide a pointer to more information.

Thanks,

Dale

[themax90]

I used Open Office but there isn't quite as much documentation as Excel, Word, etc. I would suggest using microsoft products until you know the basic interface, because OOo probably has the same configuration with less relaiblity. I am not sure, just an idea.

[Valik]

I used Open Office but there isn't quite as much documentation as Excel, Word, etc. I would suggest using microsoft products until you know the basic interface, because OOo probably has the same configuration with less relaiblity. I am not sure, just an idea.

Let me make sure I understand you correctly. You're saying use software that costs a few hundred dollars, get used to it, then migrate to free software which is going to be similar but probably not 100% identical. So you're suggesting to throw away both time and money? Did I miss the sign at the door that said "Welcome to Backwards Land"?

[Francis Lennert (France)]

Hello LOULOU,

You can use OOffice and the Beta version of AutoIt (with the COM support).

Here is a not perfect first example to show you how to launch OO.

Dim $MyArg

$oSM= ObjCreate("com.sun.star.ServiceManager")
if IsObj( $oSM ) Then
    $oDSK= $oSM.createInstance("com.sun.star.frame.Desktop")
    if IsObj($oDSK) Then
    Else
        MsgBox(0," Not Connected"," $oDSK ")
        Exit
    EndIf
Else
    MsgBox(0," Not Connected"," $oSM ")
    Exit
EndIf
$oDOC= $oDSK.loadComponentFromURL("private:factory/swriter","_blank", 0 , $MyArg)

I still have a problem with the last line and I suppose that it is with the last parameter.

C:\Documents and Settings\Administrateur\Bureau\Autoit\dc.au3 (16) : ==> The requested action with this object has failed.:

$oDOC= $oDSK.loadComponentFromURL("private:factory/swriter","_blank", 0 , $MyArg)

$oDOC= $oDSK.loadComponentFromURL("private:factory/swriter","_blank", 0 , $MyArg)^ ERROR

The OO Api documentation explains how to use this Method and I have tried a few solutions but nothing works.

Any help would make my day better,

Francis

[LOULOU]

Hello LOULOU,

You can use OOffice and the Beta version of AutoIt (with the COM support).

Here is a not perfect first example to show you how to launch OO.

Dim $MyArg

$oSM= ObjCreate("com.sun.star.ServiceManager")
if IsObj( $oSM ) Then
    $oDSK= $oSM.createInstance("com.sun.star.frame.Desktop")
    if IsObj($oDSK) Then
    Else
        MsgBox(0," Not Connected"," $oDSK ")
        Exit
    EndIf
Else
    MsgBox(0," Not Connected"," $oSM ")
    Exit
EndIf
$oDOC= $oDSK.loadComponentFromURL("private:factory/swriter","_blank", 0 , $MyArg)

I still have a problem with the last line and I suppose that it is with the last parameter.

C:\Documents and Settings\Administrateur\Bureau\Autoit\dc.au3 (16) : ==> The requested action with this object has failed.:

$oDOC= $oDSK.loadComponentFromURL("private:factory/swriter","_blank", 0 , $MyArg)

$oDOC= $oDSK.loadComponentFromURL("private:factory/swriter","_blank", 0 , $MyArg)^ ERROR

The OO Api documentation explains how to use this Method and I have tried a few solutions but nothing works.

Any help would make my day better,

Francis

Hello Francis,

Thanks to respond me. I have the same problem at the same line. I propose to create a thread on Open Office. In fact my problem is the following, I want to write a program which uses Microsoft excel and macros and i find a free way to port mu program with autoit.

What Do you think about opening a new thread ?

[Francis Lennert (France)]

It could be a good thing. I really wants to have the solution for our (common now) problem.I often use AutoIt in COM solutions and I would like to understand why we have this "The requested action with this object has failed.:"

Regards,

Francis

[LOULOU]

It could be a good thing. I really wants to have the solution for our (common now) problem.I often use AutoIt in COM solutions and I would like to understand why we have this "The requested action with this object has failed.:"

Regards,

Francis

I find the solution. Try this code it walks. It's open a new doc in a new windows

Dim $OpenPar[3]
Global $setOOoProp


;Instancie OOo : ces deux lignes sont obligatoires avec VB dans tout code !
  $oSM = Objcreate("com.sun.star.ServiceManager")
  $oDesk = $oSM.createInstance("com.sun.star.frame.Desktop")

;On appelle la fonction setOOoProp définie précédemment pour récupérer la structure
   $OpenPar[0]= setProp("ReadOnly", True)
   $OpenPar[1] = setProp("Password", "secret")
    $OpenPar[2] = setProp("Hidden", False)
 

;On appelle la fonction OOo loadComponentFromURL, en lui passant en
   $r_doc = $oDesk.loadComponentFromURL( "private:factory/swriter", "_blank", 0, $OpenPar)

Exit 

Func setProp($cName, $uValue) 
    
; Dim $oPropertyValue 
; Dim $oSM 
    
  $oSM = Objcreate("com.sun.star.ServiceManager")   
  $oPropertyValue = $oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
  $oPropertyValue.Name = $cName
  $oPropertyValue.Value = $uValue
      
  $setOOoProp= $oPropertyValue
  Return $setOOoProp
EndFunc

[Francis Lennert (France)]

Well done. This Sunday seems to be better now.

Regards,

Francis

[themax90]

@Valik, free editions of those pieces of software are avialible, along with pirate copies from torrent networks, from friends with disks. The chances are that someone they know has it or they can get it for free. So don't freak out. Microsoft has there software well documented and it would be a good way for the user to learn Obj/COM interface so they could productivly work on OOo, please don't slam me for suggestions and ideas Valik.

[Valik]

Microsoft doesn't document well, they just document more than most others. There are still large gaps. Microsoft is also prone to odd, unintuitive designs. I wouldn't really consider any Microsoft product a good learner tool unless you want to learn with the hard stuff first.

[themax90]

I was just saying getting used to the Obj/COM interface of AutoIt could be used in examples with excel and word especially since there are so many examples on this forum with excel and other programs etc.

[Leagnus]

Many thanks to LOULOU for startin to think and to implement for this fantastic free software.

I'm trying to attach to existing com.sun.star.ServiceManager object and unsuccesfully .

Why creation of the object is possible and attaching is not?

if OpenOffice Calc is runnin $o_Result = ObjGet("", "com.sun.star.ServiceManager") returns 0.

May be UNO – Universal Network Objects – aren't com-objects.

There is UNO-OLE Bridge, but I'm not so tough to get what is this about. Does someone have an idea?

[Leagnus]

ms777 have responded to my attach request.

[James]

And the point of the last post is?

[Leagnus]

Point is that there is vbs-script which easy to convert to au3 for attaching to already opened in memory Open Office calc document.

Currently i'm workin on OOoCOM_UDF.au3 library. I have already done _OOoCalc_Open() and _OOoCalc_Attach funcs.

[PsaltyDS]

Point is that there is vbs-script which easy to convert to au3 for attaching to already opened in memory Open Office calc document.

Currently i'm workin on OOoCOM_UDF.au3 library. I have already done _OOoCalc_Open() and _OOoCalc_Attach funcs.

Excellent. Hope to see your UDF in the Example Scipts section when you get your first version ready.