Seite 1 von 1

Makro soll ods parallel in html abspeichern

Verfasst: Do, 18.10.2007 12:38
von Pestovat
Hallo OO'lerinnen und OO'ler!

Ich habe ein Problem. Ich habe eine ods Datei erstellt, die wie ein
Kalenderblatt aufgebaut ist.

Damit im Netzwerk der Zugriff möglich ist, möchte ich gerne im
Intranet eine Verknüpfung anlegen mit der man die Kalenderübersicht
als im HTML-Format aufrufen kann.

Wie kriege ich nun OO dazu die ods-Datei beim Schließen oder Speichern
parallel als HTML-Datei zu speichern?

Oder gibt es andere / bessere Lösungen? :D

@Mods ~ evt. habe ich den falschen Bereich benutzt?

Re: Makro soll ods parallel in html abspeichern

Verfasst: Do, 18.10.2007 13:23
von Pestovat
Also, ich habe mich jetzt soweit vorgeklickt das ich folgende Erkenntnisse gewonnen habe:

Unter Extras - Anpassen - Ereignisse kann ich mein aufgezeichnetes Makro (leider verstehe
ich die OO-Befehle immer noch nicht) einem Ereignis zuordnen.

Das klappt soweit ganz gut obwohl ich noch nicht zufrieden bin denn das
parallele Speichern wäre mir lieber.

So wandelt sich praktisch noch am Bildschirm die ods Datei in eine
html Datei um.

Hier mein Code:

Code: Alles auswählen

REM  *****  BASIC  *****


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:///H:/calendar/calendar.html"
args1(1).Name = "FilterName"
args1(1).Value = "HTML (StarCalc)"
args1(2).Name = "SelectionOnly"
args1(2).Value = true

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

end sub