Hallo zusammen,
ich habe ein Dokument mit einem RTItem "body". Sobald der Inhalt eine gewisse Größe erreicht, habe ich auf einmal 2, 3 oder mehr. Soweit kein Problem, der Inhalt ist komplett in Script vorhanden nur bei der Range nicht.
Set rtitem1 = doc.GetFirstItem( "Body" )
If Not rtitem1 Is Nothing Then
Call rtitem1.CopyItemToDocument( searchdoc, "Body" )
Call searchdoc.Save( True, True )
'sonderbehandlng richtext
Set rtitem2 = searchdoc.GetFirstItem("Body")
Set rtrange = rtitem2.CreateRange
Set style = session.CreateRichTextStyle
style.NotesFont = rtitem2.GetNotesFont("Default Sans Serif", True)
style.FontSize = 10
Call rtrange.SetStyle(style)
Call searchdoc.Save( True, True )
End If
Ich muss den kompletten Text in Default Sans Serif, Größe 10 bekommen da sonst keine CSS greifen.
Kennt jemand eine Lösung.
Danke und Gruß
Alex