Seite 1 von 1
Extern Speichern per Makro
Verfasst: Di, 21.08.2007 08:26
von Stancer
Hallo zusammen,
Ich möchte gerne einen baseinternen Bericht extern speichern, also praktisch eine Sicherheitskopie anlegen.
Dies soll per Makro realisiert werden. Hat jemand ne Idee wie ich das hinbekommen kann.
Vielen Dank für alle Antworten.
MfG Stancer
Re: Extern Speichern per Makro
Verfasst: So, 02.09.2007 15:59
von komma4
..wahrscheinlich mit der
storeToURL-Methode.
untested:
Erzeuge Deinen Bericht - und starte dann ein Marko mit
Siehst Du was?
Re: Extern Speichern per Makro
Verfasst: Mo, 03.09.2007 08:31
von Stancer
Hi Winfried,
Danke für deine Hilfe, hab das Problem inzwischen anders gelöst. Da der bericht innerhalb meines Ablaufs geöffnet wird konnte ich einfach das aktive dokument speichern. Hab dazu dieses Makro mit dem Makrorekorder aufgezeichnet.
Code: Alles auswählen
sub Berichtspeichern
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(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Dokumente%20und%20Einstellungen/Gast/Desktop/bericht.odt"
args1(1).Name = "FilterName"
args1(1).Value = "writer8"
args1(2).Name = "SaveTo"
args1(2).Value = true
args1(3).Name = "SelectionOnly"
args1(3).Value = true
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
end sub
Trotzdem danke für deine Hilfe.
MfG Stancer