BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Makro für OpenOffice WRITER

Alles zur Programmierung im OpenOffice.org
Antworten
Sigmund
Beiträge: 2
Registriert: Di 26. Jan 2021, 14:07

Makro für OpenOffice WRITER

Beitrag von Sigmund » Di 26. Jan 2021, 14:55

Hallo FORUM!
Vorab: Ich bin neu im Forum. Bitte um Nachsicht, wenn ich etwas falsch mache.
Ich brauche ein einfaches Makro für das Programm WRITER.
Ich beherrsche die Programmiersprache „OpenOffice Basic“ nicht.
Folgendes sollte das Makro können:
1.Einfügen (von Symbolleiste)
2.Feldbefehl
3.Andere
4.Dateiname
5.Einfügen
6.Schliessen
7.Datei (von Symbolleiste)
8.Speichern unter...
9.Speichern als odt-Datei auf dem Desktop = es öffnet sich das Fenster
„Speichern unter...“
10.Ende

Teilweise habe ich das Makro mit Extras/Makros/Aufzeichnen/Aufzeichnung beenden/
Makro speichern hingekriegt.
Beim Datei / „Speichern unter... wird das Fenster „Speichern unter... geöffnet..
Es wird mir aber nicht der Dateityp .odt angeboten, sondern:

Dateiname: .ott
Dateityp: ODF Textdokumentenvorlage (.ott) (*.ott)

Was muß ich tun, das mir der Dateityp .odt beim „Speichern unter... angeboten wird?
siehe mein Makro:

sub NameundODT
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(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Type"
args1(0).Value = 2
args1(1).Name = "SubType"
args1(1).Value = 0
args1(2).Name = "Name"
args1(2).Value = ""
args1(3).Name = "Content"
args1(3).Value = ""
args1(4).Name = "Format"
args1(4).Value = 0
args1(5).Name = "Separator"
args1(5).Value = " "

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

end sub

Antworten