Speicherorte variabel festlegen...

[Bernhard]

Hallo

folgende Frage/Problem:

Ich muss Dokumente auf einem Server speichern - > da wiederum in einem Unterordner -> und wieder in einem Unterordner.. ich klicke mich da echt teils fast zu tode...

Gibt es (vielleicht per Makro) eine Möglichkeit das ich sage wo es gespeichert wird? Das problem ist nämlich auch, das nicht alle Dokumente (z.b: Briefe werden auf Laufwerk P, Hausmitteilungen auf Laufwerk Q usw usw) auf dem gleichen Server gespeichert werden... Könnte man das Makro dann einem Button in der Anzeigenleiste zugeordnet???

Herzlichen Dank!
Bernhard
------------------
OO-Forum das beste was das Web zu bieten hat...

[Toxitom]

Hey Bernhard,

ja, du könntest ein Makro zum Speichern schreiben und den Datei-Auswahldialog gleich mit unterschiedlichen Vorgabepfaden aufrufen - die würden dann im Makr "hart" programmiert, die Pfade müssten also "fix" sein.
Ein solches Makro kannst du in eine eigene Symbolleiste oder Menüsruktur einbinden - mit eigenem Symbol.
Such ruhig mal nach "Datei speichern Dialoge", ich glaube, da gibt es schon Codeschnipsel.

Gruss
Thomas

[Bernhard]

hab jeztz mal nach den "datei speichern Dialog" gesucht.. aber nix passendes gefunden...

Jetzt hab ich mal folgenden Makro aufgezeichnet:
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///T:/DigiMan/Scan_aktuell/ENDO.xls"
args1(1).Name = "FilterName"
args1(1).Value = "MS Excel 97"
args1(2).Name = "SelectionOnly"
args1(2).Value = true

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())


end sub

Es sollta aber bei
args1(0).Value = "file:///T:/DigiMan/Scan_aktuell/ENDO.xls"
"angehalten" werden.. da ja der Name unterschiedlich ist.. wie kann ich einen "stopp" oder "haltepunkt" einfügen???