OpenOffice.info

Hallo Klaus,

vielen Dank für die hilfreichen Links. Werde mich jetzt ein bissel in die Weiten der OO-Programmierungsdokumentation begeben.

Gruß,

Jean

Table = Doc.createInstance("com.sun.star.text.TextTable")

hallo jean

der fehler liegt bei TextTables. so ist es richtig

[code]Table = Doc.createInstance("com.sun.star.text.TextTable")[/code]

beachte auch, dass die methode createInstance casesensitiv ist. einen (meiner meinung nach der beste) object-explorer ist das xray tool 5.2. zu finden:

[url]http://sourceforge.net/project/showfiles.php?group_id=87718&package_id=101416[/url]

dann brauchst du noch das api bzw. das sdkzu finden:

[url]http://api.openoffice.org/[/url]

[url]http://api.openoffice.org/DevelopersGuide/DevelopersGuide.html[/url]

[url]http://www.starbasicfaq.de/index.html[/url]

beachte generell, dass das handbuch von sun mit den basic-code-beispielen oft fehlerhaft ist.

grüße
klaus

grüße
klaus

Table = Doc.createInstance("com.sun.star.text.TextTables")

Hallo kannanenklaus,

vielen Dank für deinen Hinweis. Der Code akzeptiert zwar jetzt die eben angesprochene Zeile, bricht aber bei dem dann kommenden Code
[code]Table = Doc.createInstance("com.sun.star.text.TextTables")[/code]
mit der Fehlermeldung

"BASIC Laufzeitfehler
Es ist eine Exception aufgetreten
Type: com.sun.star.lang.ServiceNotRegisteredExceptionMessage"

Gibt es hier auch die Möglichkeit, sich die Methodenbeschreibung anzeigen zu lassen, sobald eine Methode markiert wird und beispielsweise F1 gedrückt wird (wie es in Office ist)?

Wenn nicht: Wo kann ich mir denn die ganzen Methoden und Eigenschaften nachlesen, die ich unter z.B. Writer benutzen kann?

Gruß,

Jean

[/img]

Doc=thisComponent

hallo jean,

[quote]Doc = StarDesktop.CurrentComponent[/quote]

verwende anstatt StarDesktop.....

[code]
Doc=thisComponent[/code]

dann klappt es auch von der basic-ide aus.

grüße
klaus

Sub Main

Dim Doc As Object
Dim Table As Object
Dim Cursor As Object

Doc = StarDesktop.CurrentComponent
Cursor = Doc.Text.createTextCursor()
Table = Doc.createInstance("com.sun.star.text.TextTables")
Table.initialize(5, 4)
Doc.Text.insertTextContent(Cursor, Table, False)

End Sub

Cursor = Doc.Text.createTextCursor()

Hallo zusammen,

bin von MS Office auf OpenOffice umgestiegen und begeistert, wie einfach doch bestimmte Dinge hier gelöst wurden. Dass ich beispielsweise Tabellen über ihren Namen ansprechen kann, ist für mich eine Selbstverständlichkeit, die offenkundig die MS-Programmierer nicht mit mit teilen. :-)

Da ich bisher in VBA programmiert habe, möchte ich mich nun in OO-Basic einarbeiten. Dazu habe ich mir das Handbuch heruntergeladen und probiert, folgenden Code umzusetzen:
[code]Sub Main

Dim Doc As Object
Dim Table As Object
Dim Cursor As Object

Doc = StarDesktop.CurrentComponent
Cursor = Doc.Text.createTextCursor()
Table = Doc.createInstance("com.sun.star.text.TextTables")
Table.initialize(5, 4)
Doc.Text.insertTextContent(Cursor, Table, False)

End Sub[/code]

Aber irgendwie kommt ab der Zeile
[code]Cursor = Doc.Text.createTextCursor()[/code]
der Basic-Laufzeitfehler, dass Methode oder Eigenschaft nicht bekannt sein.

Ähmmm...was genau ist denn hier falsch, der Code wurde von mir 1:1 aus dem StarOffice 7 Handbuch kopiert.

Gruß,

Jean