Wie kann man Dokumente einfügen?

Innerhalb von Writer kann man ganze Dokumente einfügen. Dabei kann es sich um alle Formate handeln die OpenOffice normal auch öffnen kann. Aber es muss sich um Text-Dateien handeln.

Sub InsertText
  Dim Dummy(0) as New com.sun.star.beans.PropertyValue
  odoc=thisComponent
  oText = oDoc.getText()
  oCURsor = oDoc.text.createtextcursor
  sInhalt="D:\Test.odt"
  filetoinsert=converttourl(sinhalt)
  oCURsor.InsertDocumentFromUrl(FileToInsert,Dummy())
  oCursor.gotoend(false)
end sub

Als Parameter könen die Parameter des MediaDescriptors übergegeben werden. Die meisten davon machen aber beim Einfügen in einen Text keinen Sinn.