[GELÖST] Makroerstellung im OpenOffice Writer

[Sigmund Keller]

Ich will so vorgehen: Desktop (rechter Mausklick)

Datei-neu.JPG (47.28 KiB) 2874 mal betrachtet

Dann erstellt Writer mir eine neue odt-Datei, die automatisch so heißt:
OpenDocument Text (neu).odt. Danach benenne ich die Datei (auf dem Desktop)
um: in, z.B., Name.odt.

Dann habe ich ein Makro erstellt. Ich nenne das Makro „Dateiname“.
Das kann das Makro alles:
1.Cursor setzen (Schriftart: Arial, Schriftschnitt: fett, Größe: 10 pt, zentriert)
2.Einfügen
3.Feldbefehl
4.Andere...
5.Dateiname
6.Einfügen
7.Schließen
Bis hier habe ich es hingekriegt. Das war nicht schwer!
Wie ich ein Makro, als Symbol in der Symbol-Leiste einfügen kann, weiß ich-
dank FORUM Mitglied „F3K Total“ - jetzt auch schon.

So soll das Makro weitergehen:
8.Datei speichern unter... als odt-Datei auf dem Desktop

1.Problem: Das Fenster Speichern unter... wird aber nicht geöffnet
2.Problem: Wenn ich manuell so vorgehe: Speichern unter... bietet mir Writer an:
ODF Textdokumentenvorlage (.ott) (*.ott)
Ich verstehe nicht, warum Writer mir die Dateiendung .ott und nicht .odt anbietet.
3.Problem: wenn ich Punkt: 2.Problem ausführe, dann habe ich 2 odt-Dateien
auf dem Desktop. Ich will ja aber nur 1 Datei haben.

Ich war nicht faul, ich habe lange versucht, dieses Makro hinzukriegen.
Wäre nett, wenn jemand eine Lösung für mein Makro hätte.
Anmerkung: Ich habe noch nie in „OpenOffice Basic“ programmiert.
Kann mir jemand eine gute Quelle (einfache Anleitungen) für „OpenOffice Basic“ Programmierung nennen?
Danke schön
Sigmund Keller

[Hiker]

Hallo,

ich schätze der folgende Link hilft Dir weiter:
http://www.dannenhoefer.de/faqstarbasic ... l#Zweig146

Die FAQ wird zwar nicht mehr fortgeschrieben hat aber viele Beispiele für den Anfang. Ich habe den Link mal auf das Öffnen des FilePickers gesetzt.

Mfg, Jörn

[Toxitom]

Hey Sigmund,

wenn Du den "Speichern unter" Dialog angezeigt baen möchtest, so brauchst Du einen Dispatcher-Code. Oder Du baust IHn die komplett selbst, das sit aber viel Aufwand...Hihi.

Am einfachsten: Zeichne Dir das Makro auf. Im Code dann musst Du allerdings die Zeilen mit der URL rauslöschen oder auskommentieren - sonst öffnet sich kein Dialog.

So sollte der Code aussehen:

Code: Alles auswählen

sub speichertest
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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FilterName"
args1(0).Value = "writer8"

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

end sub

Warum bei Dir *.ott voreingestellt ist...??? keine Ahnung. Musste mal ein wenig durch die Optionen schauen - möglicherweise haste das dort irgendwo vordefiniert.

Vielleicht hilft es

Gruss
Tom