tjo....RichText habe ich probiert...hat aber leider nichts gebracht, ausser das er mir vorher sagte *xxx zu viele Zeichen*...
hier ma ein Auszug aus meinem Code:
Sub CreateLeitKost(inDB As NotesDatabase, inDate As String)
Dim AbrechText
Dim AbrechTextAnfang
Dim AbrechTextMitte
Dim AbrechTextEnde
Forall x In Institute
Set Doc = New NotesDocument(inDB)
Doc.Form = "AbrechLeitW"
Doc.InstNr = x.Nr
Doc.CreateDate = inDate
Set AbrechText = x.GetAbrechText
Textlaenge = Lenb(AbrechText.GetText())
if Textlaenge ....
Elseif Textlaenge > 65536 Then
AbrechTextAnfang = AbrechText.GetTextAnfang()
Doc.a = AbrechTextAnfang
AbrechTextMitte = AbrechText.GetTextMitte()
Doc.b = AbrechTextMitte
AbrechTextEnde = AbrechText.GetTextEnde()
Doc.c = AbrechTextEnde
End If
das is ja eigentlich nich wirklich besonders viel
die eigentliche Bastelung der Texte hab ich ma rausgelassen, denn wenn ich
Textlaenge = Lenb(xxx)
mache, ist der Wert immer unter 32000
sobald ich nur ein Doc.x nutze funktioniert es auch...auch immer mit dem richtigem Text
motzen tut Notes natuerlich erst beim speichern
