Text aus Variable ausgeben

[wosp]

Also jetzt laust mich langsam der Affe,
jetzt habe ich endlich alles soweit, dass ich aus einer Listbox einen Eintrag in eine Variable einlesen lassen kann und jetzt möchte ich den Eintrag den auch in einer Writer Tabelle eintragen lassen. Bloß wie geht das?
Mit welchem Code?
In einer MsGBox geht es aber da soll er eben gar nicht hinein. Alle Versuch scheitern an einer Fehlermeldung.

stringvariable , geht nicht
insert.stringvariable , auch nicht
einfach nur variable ebenfalls nicht.
Finde irgendwie nirgends einen Hinweis.
Ich möchte den ausgewählten Text an der aktuellen Cursorposition in einer tabelle ausgeben lassen.
Hat jemand einen Hinweis?
ws

[gogo]

Hi!

Zum Einfügen muss LO wissen wohin - also bei Dir ist das die aktuelle Position des Cursors (=ViewCursor). Die passende Methode dazu heisst ".insertString"

Code: Alles auswählen

oDialog1.Execute()

oViewCursor   = thiscomponent.getCurrentController.getViewCursor
oInsertCursor = oViewCursor.getText.createTextCursorByRange(oViewCursor)
otext         = oViewCursor.gettext
otext.insertString(oInsertCursor, oListBox.Text,false)

Den Dialog kannst Du schliessen, wenn Du einen Button im Dialog erstellst, und in seinen Eigenschaften bei "Art der Schaltfläche" den Wert "OK" einstellst.
ein Klick auf die Schaltfläche beendet den Dialog dann mit dem Wert "1", diesen kannst Du bei der Methode .Execute() abfragen. Wenn Du noch eine 2. Schaltfläche erstellst, und ihr bei "Art der Schaltfläche den Wert "Abbrechen" zuweist, dann hat der User auch die Möglichkeit den Dialog zu schliessen ohne etwas in das Writerdokument einzutragen (denn "Abbrechen" liefert den Wert "0" und die If-Anweisung wird übersprungen):

Code: Alles auswählen

Rueckwert=oDialog1.Execute()
if Rueckwert = 1 then
   oViewCursor   = thiscomponent.getCurrentController.getViewCursor
   oInsertCursor = oViewCursor.getText.createTextCursorByRange(oViewCursor)
   otext         = oViewCursor.gettext
   otext.insertString(oInsertCursor, oListBox.Text,false)
end if

Die "oListBox.Text" muss natürlich definiert sein, aber wenn Du dieses Codeschnipsel in dem Code von http://www.libreoffice-forum.de/viewtop ... f=12&t=167 einsetzt sollte es passen.

g

[wosp]

Danke erstmal für die Mühe, ich werde es gleich mal ausprobieren.
ws