Open office i vb.net

[styx]

Interesuje me da li je neko pokusao da otvori neki odt fajl i upise neki text u njega, naravno iz vb.net-a. Ja koristim AODL ali imam ogromnih problema! Tako da ako neko ima ideju, dobrodosla je!

[styx]

Ovo prvo je primer u vb6, a drugo je moj pokusaj sa vb.net-om, ali ne radi!!!

Set oServiceManager = CreateObject("com.sun.star.ServiceManager") 
Set oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop") 
Dim aNoArgs() 
Set oDoc = oDesktop.loadComponentFromURL("file:///C:/Test.doc", "_blank", 0, aNoArgs())

Najvise zeza ovaj deo sa ovim aNoArgs()
a ja sam to uradio ovako, pa ako neko vidi gresku neka vice

Dim oServiceManager,oDesktop,oDoc As Object 
oServiceManager = CreateObject("com.sun.star.ServiceManager") 
oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop") 
Dim aNoArgs() as object 
oDoc = oDesktop.loadComponentFromURL("file:///C:/Test.doc", "_blank", 0, aNoArgs(0))

[MG-RAY]

styx kaže:

Ovo prvo je primer u vb6, a drugo je moj pokusaj sa vb.net-om, ali ne radi!!!

Set oServiceManager = CreateObject("com.sun.star.ServiceManager") 
Set oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop") 
Dim aNoArgs() 
Set oDoc = oDesktop.loadComponentFromURL("file:///C:/Test.doc", "_blank", 0, aNoArgs())

Najvise zeza ovaj deo sa ovim aNoArgs()
a ja sam to uradio ovako, pa ako neko vidi gresku neka vice

Dim oServiceManager,oDesktop,oDoc As Object 
oServiceManager = CreateObject("com.sun.star.ServiceManager") 
oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop") 
Dim aNoArgs() as object 
oDoc = oDesktop.loadComponentFromURL("file:///C:/Test.doc", "_blank", 0, aNoArgs(0))

aNoArgs prosledjujes kao objektni tip podataka, probaj type-casting pa vidi da li radi...

[styx]

uspeo sam!

ali sad ne uspevam je da se krecem kroz postojeci dokument i na odredjenom mestu upisem nesto.

U wordu je to bilo strasno lako reseno sa

WordApp.Selection.MoveDown (red,1)
WordApp.Selection.MoveRight(karakter,10)
WordApp.Selection.TypeText("neki tekst")

ali u openoffic-u hhhehe, svaka pomoc je dobrodosla!