OpenOffice.info

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

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

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?