von TopSigrid » Mi, 08.08.2018 15:01
Hallo,
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
Jetzt sollen genau diese Dateien mit einem anderen Makro wieder geschlossen werden. Bestenfalls wird davor (wie beim normalen Schließen auch) noch mal nachgefragt, wenn es ungespeicherte Änderungen gibt.
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
Hallo,
ich habe bereits ein Makro, welches bestehende Dateien öffnet.
[code]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[/code]
Jetzt sollen genau diese Dateien mit einem anderen Makro wieder geschlossen werden. Bestenfalls wird davor (wie beim normalen Schließen auch) noch mal nachgefragt, wenn es ungespeicherte Änderungen gibt.
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 :D
Danke im Vorraus