Zur Laufzeit Library und Modul erstellen
Verfasst: Fr, 28.10.2005 15:42
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
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