Die Suche ergab 2 Treffer

von TopSigrid
Mi, 08.08.2018 17:46
Forum: Makros und allgemeine Programmierung
Thema: Alle offenen Dateien per Makro schließen
Antworten: 1
Zugriffe: 1954

Re: Alle offenen Dateien per Makro schließen

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
von TopSigrid
Mi, 08.08.2018 15:01
Forum: Makros und allgemeine Programmierung
Thema: Alle offenen Dateien per Makro schließen
Antworten: 1
Zugriffe: 1954

Alle offenen Dateien per Makro schließen

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) fnOpenDoc = StarDeskto...