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