Lotus Notes > OpenOffice Writer

[bredemeier]

Hallo,

ich übergebe per LS Text mit Umbrüchen aus einem reinen Textfeld an Bookmarks in ein geöffnetes OpenOffice Writer Dokument.

Die Übergabe funktioniert problemlos, nur an den Umbrüchen werden zusätzlich Leerzeilen eingefügt.
Z.B. Bei einer Adresse im Textfeld:
Vorname Nachname
Straße
PLZ Ort

wird in OpenOffice
Vorname Nachname

Straße

PLZ Ort

eingefügt.

Hat hier jemand eine Idee?

Function fTextmarke(objDoc As Variant, bookmark As Variant, sText As String)
   
   On Error Goto Fehler
   
   Dim oTM As Variant
   Dim oBookmark As Variant
   Dim oTC As Variant
   
   Set oTM = objDoc.Bookmarks.getByName(bookmark)
   Set oBookmark = objDoc.getBookmarks().getByName(bookmark).getAnchor()
   Set oTC = oBookmark.Text.CreateTextCursorByRange(oTM.Anchor)
   oTC.String = sText
   Exit Function
   
Fehler:
   Msgbox  "Die Textmarke wurde nicht gefunden!"
   
End Function

Danke für eure Zeit, Volker

[umi]

Moin

Evtl. hilft es die Zeilenumbrüche vorher zufiltern.
Ich kann mir vorstellen, dass die Zeilenumbrüche als CHR(13) & CHR(10) (CRLF) mitgegeben werden und Openoffice beides als Zeilenumbrüche interpretiert.

[bredemeier]

Moin Urs,

cool, funktioniert. Es ist dabei auch egal, ob ich Chr(10) oder Chr(13) herausnehme, das Ergebnis ist das Gleiche.

Danke für den Tip, Volker