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 muß 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.