Writer - Text einfügen

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

juetho
******
Beiträge: 617
Registriert: Di, 20.04.2010 15:46
Wohnort: Berlin

Re: Writer - Text einfügen

Beitrag von juetho »

Für solche Fragen helfen die Tools von Dannenhöfer (konkret: Punkt 8.2.4) und Andrew Pitonyak. Jürgen
Situation: LibO 3.6 auf Win 7 Home Premium (64-bit) mit MySQL (localhost) über JDBC
turtle47
*******
Beiträge: 1849
Registriert: Mi, 04.01.2006 20:10
Wohnort: Rheinbach

Re: Writer - Text einfügen

Beitrag von turtle47 »

Hallo Martin,
Wie mach ich das am besten?

Code: Alles auswählen

Sub Write_at_Cursor_Position
oDoc=thisComponent
oViewCursor=odoc.GetCurrentController.ViewCursor
oText=oDoc.text
oText.insertString(oViewCursor, "Hallo!",false)
End Sub

Jürgen
Software hat keinen Verstand - benutze deinen eigenen...!

Win 7 SP1/ LibreOffice 3.4.2 OOO340m1 (Build:203) / Firefox 15.0.1 / Notebook ASUS K70IO 64 Bit-Betriebssytem
turtle47
*******
Beiträge: 1849
Registriert: Mi, 04.01.2006 20:10
Wohnort: Rheinbach

Re: Writer - Text einfügen

Beitrag von turtle47 »

Martin. hat geschrieben: Was könnte ich jetzt da noch machen?

Code: Alles auswählen

"Hallo!"&CHR(13)&"Tschüß!"
Software hat keinen Verstand - benutze deinen eigenen...!

Win 7 SP1/ LibreOffice 3.4.2 OOO340m1 (Build:203) / Firefox 15.0.1 / Notebook ASUS K70IO 64 Bit-Betriebssytem
turtle47
*******
Beiträge: 1849
Registriert: Mi, 04.01.2006 20:10
Wohnort: Rheinbach

Re: Writer - Text einfügen

Beitrag von turtle47 »

Martin. hat geschrieben:Hat da noch jemand eine Idee?

Code: Alles auswählen

....
oViewCursor.GoLeft(1,True)
otext.insertString(oViewCursor,"",true)
Software hat keinen Verstand - benutze deinen eigenen...!

Win 7 SP1/ LibreOffice 3.4.2 OOO340m1 (Build:203) / Firefox 15.0.1 / Notebook ASUS K70IO 64 Bit-Betriebssytem
Antworten