Speichern Unter Laufwerk und Unterordner festlegen
Verfasst: Fr, 05.09.2008 15:01
Hallo ich habe eine MsgBox geschrieben, die beim Öffnen verhindern den Hinweis bringt, dass man erstmal eine Kopie spiechern soll, bevor man die Datei weiter bearbeitet.
Da meherer Leute die Datei benutzen soll damit zum einen verhindert werden, dass die Originaldatei überschrieben wird. Außerdem sollen die Kollegen die Datei nach Gusto umbennen. Einzig das Laufwerk ist seitens unseres Vorgesetzen vorgegeben.
Meine Frage: ist es möglich ein Makro so zu Programmieren, dass man einen Pfad (zum Beispiel G:/Ablage/)angeben kann, wohin die Datei gespeichert werden MUSS?
Hier meine MsgBox
Da meherer Leute die Datei benutzen soll damit zum einen verhindert werden, dass die Originaldatei überschrieben wird. Außerdem sollen die Kollegen die Datei nach Gusto umbennen. Einzig das Laufwerk ist seitens unseres Vorgesetzen vorgegeben.
Meine Frage: ist es möglich ein Makro so zu Programmieren, dass man einen Pfad (zum Beispiel G:/Ablage/)angeben kann, wohin die Datei gespeichert werden MUSS?
Hier meine MsgBox
Code: Alles auswählen
Sub Information
msg = msgbox("Bitte Speichern Sie zunächst eine Kopie des Dokuments", 48, "Information")
if msg = 1 then
Speichernunter
end if
End sub
Sub Speichernunter
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, Array())
end sub