
Danke
Stefan
Code: Alles auswählen
Function CreateNewCalcDoc
Dim noArgs() 'Ein leeres Array als Argument.
Dim sURL As String 'URL des neuen Dokuments.
Dim oDoc
sURL = "private:factory/scalc"
oDoc = StarDesktop.loadComponentFromUrl(sURL, "_blank", 0, noArgs())
CreateNewCalcDoc = oDoc
End Function