OpenOffice.info

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

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]
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
[/code]

Trotzdem danke für deine Hilfe.
MfG Stancer

 xray ThisComponent

..wahrscheinlich mit der [color=#008000][b]storeToURL[/b][/color]-Methode.
untested:
Erzeuge Deinen Bericht - und starte dann ein Marko mit[code] xray ThisComponent[/code]
Siehst Du was?

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