Hallo
Ok, hier ist einfaches Makro das alle Dateien öffnet die im eingetragenen Ordner sind.
Code: Alles auswählen
Sub dateien_oeffnen
apfad = "C:\pfad\zum\chef\ordner\" 'Hier bitte richtigen Pfad eintragen
ofile = dir(apfad,0)
while ofile <> ""
iurl = converttourl(apfad & ofile)
dim myFileProp() as Object
oDocument = StarDesktop.loadComponentFromURL(iurl, "blank", 0, myFileProp() )
ofile = dir
wend
End Sub
Ich häng ein Doc an, bei dessen Öffnung genau dieses Makro läuft.
(Hinterlegt unter ->Extras->Anpassen->Ereignisse)
Passe dort in der 2.Zeile den Pfad zum Ordner an.
(->Extras->Makros->Makros verwalten ->OOobasic im Standardmodul von aaa_oeffnen)
Leg deinem Chef eine Verknüpfung zu diesem Dokument auf den Desktop
Verschiebe/kopiere die Office-Dateien die dein Chef benötigt in den angegebenen Ordner
(nur Officedateien keine anderen)
Gruß Karo