OpenOffice.info

Ich habe es jetzt selber hinbekommen: Sub Main CloseFiles () End Sub Sub CloseFiles oCE = stardesktop.Components.createEnumeration while oCE.hasmoreelements oC = oCE.nextelement if (oC.Title="Test1.odt" OR oC.Title="Test2.ods") then oC.store oC.close -1 endif wend End Sub

Hallo, ich habe bereits ein Makro, welches bestehende Dateien öffnet. 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) fn...