Ich hab jetzt rumprobiert, aber ich bekomms nicht hin.
Hier mal mein Code bis jetzt:
id = doc.UniversalID
Call uidoc.Close
If mkSection(sectitle) = 0 Then
Exit Sub
End If
###Hier der relevante Teil der Funktion mkSection###
Call rtitem.BeginInsert(rtnav)
Set rtdtext = dummy.GetFirstItem("text")
Call rtitem.BeginSection(title,rts,colorObject,True)
Call rtitem.AddNewline(2)
Call rtitem.Appendrtitem(rtdtext)
Call rtitem.EndSection
Call rtitem.addnewline(2)
Call rtitem.EndInsert
###Ende der Funktion mkSection###
Set doc = db.GetDocumentByUNID(id)
dummy ist das Dokument der Dialogbox, und das Feld "text" ist das RTFeld der Dialogbox. rtitem ist das RTFeld im Hauptdokument,
Danach schließe ich das Dokument nochmal um den neuen Abschnitt anzuzeigen. Und dieser ist dann leider leer.
mfg
Stefan