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
BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!
> 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. 🤗