Zur Laufzeit Library und Modul erstellen

[Honni]

Hallo,

ich würde gerne zur Laufzeit ein weiteres Modul erstellen, welches Makrocode aufnehmen kann. Der vorliegende Quelltext läuft ohne Fehler durch, aber eine Änderung der Library-Struktur findet nicht statt.

Sub Main

Dim Doc As Object
Dim url As String
Dim Dummy()

url = "private:factory/swriter"

Doc = StarDesktop.loadComponentFromURL( url, "_blank", 0, Dummy() )

Doc.createLibrary("Lib1", "", "", "")
Doc.addModule("Lib1", "Mod1", "", "Sub Main End Sub")

Doc.storeAsURL( "file:///C:/example.ott", Dummy() )

Doc.close(true)

End Sub


Danke für die Mühe!

cu, Honni