ich habe bereits ein Makro, welches bestehende Dateien öffnet.
Code: Alles auswählen
Sub Main
oDoc = openFile("D:\Dateien\sonstige\Test_Öffnen_Schließen\Test1.odt")
oDoc = openFile("D:\Dateien\sonstige\Test_Öffnen_Schließen\Test2.ods")
End Sub
function openFile(File)
URL = ConvertToURL(File)
fnOpenDoc = StarDesktop.loadComponentFromURL(URL, "_blank", 0, Array())
end function
Bisher habe ich nur Möglichkeiten gefunden, um die aktuelle Datei (ThisComponent) zu schließen. Diese sollte aber nach Möglichkeit offen bleiben. Wenn es nicht möglich ist, konkrete Dateien zu schließen, würde es auch reichen, alle OpenOffice Dateien außer der aktuellen zu schließen.
Ich hoffe, ihr könnt mir helfen
Danke im Vorraus