OpenOffice.info

sub speichern
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 = "ToPoint"
args1(0).Value = "$E$10"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "URL"
args3(0).Value = "file:///home/micha/Desktop/RE-07140.ods"
args3(1).Name = "FilterName"
args3(1).Value = "calc8"
args3(2).Name = "SelectionOnly"
args3(2).Value = true

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

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$E$11"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args6(2) as new com.sun.star.beans.PropertyValue
args6(0).Name = "URL"
args6(0).Value = "file:///home/micha/Desktop/m%C3%BCller%20neuenweg.ods"
args6(1).Name = "FilterName"
args6(1).Value = "calc8"
args6(2).Name = "SelectionOnly"
args6(2).Value = true

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


end sub

hi,
wie mache ich denn eine Stringverkettung?

hier das Makro:[code]sub speichern
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 = "ToPoint"
args1(0).Value = "$E$10"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "URL"
args3(0).Value = "file:///home/micha/Desktop/RE-07140.ods"
args3(1).Name = "FilterName"
args3(1).Value = "calc8"
args3(2).Name = "SelectionOnly"
args3(2).Value = true

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

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$E$11"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args6(2) as new com.sun.star.beans.PropertyValue
args6(0).Name = "URL"
args6(0).Value = "file:///home/micha/Desktop/m%C3%BCller%20neuenweg.ods"
args6(1).Name = "FilterName"
args6(1).Value = "calc8"
args6(2).Name = "SelectionOnly"
args6(2).Value = true

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


end sub[/code]
In args6(0).Value soll danm der Pfad und "der Zelleninhalt".ods stehen

mfg MW

Hey m_wolf,

[quote]..falls es eerwünscht ist kann ich das Makro auch posten.[/quote]
Na, wenn du Hilfe suchst, so wäre das wohl für dich hilfreich und einfacher. Die Antworten können dann dein Problem gezielter erreichen.
Oder kannst du mit "na, einfach den gewünschten Namen per Stringverkettung erzeugen und der Speicherroutine übergeben" etwas anfangen. Dann bracuhst du den Code nicht zu posten ;-)

Gruss
Thomas

hallo, mein Problem ist auch, dass ich aus den feldern von Calc den namen zum automatischem Speichern Übernehmen möchte.
dieses habe ich mit einem aufgezeichneten Makro versucht.
dann Speichert er aber den eingegebenen Namen des des Inhalts von diesem Feld beim aufzeichnen und benutzt dieses immer wieder zum Speichern.
vieleicht hat jemand eine Idee, in welcher form ich den Inhalt des Feldes in das Script einbinde.

falls es eerwünscht ist kann ich das Makro auch posten.

mfg m wolf

Hallo Andreas
hast du schon eine lösung??
Ich habe ein ähnliches problem.Ich will rechnungen immer mit bestimmtem name abspeichern ohne den jeweil immer einzutippen. Hast du schon eine lösung gefunden??

Gruß
Stefan

Hi Leute,

ich benutze OO2.2 unter Linux. Ich habe mir eine DB gestrickt, um meine hunderte von ebay-Auktionen (in versch. Sprachen) aus einer einzigen Quelle zu generieren.

Das klappt nach vielem basteln hervorragend. Nun würde ich gern via Serienbrieffunktion den Output als HTML-Datei speichern, um den zu ebay hochzuladen. Klappt auch.

Nur lautet der Dateiname immer gleich, gefolgt von einer fortlaufenden Zahl. Zur Erkennung, welche Auktion sich nun hinter welcher Datei verbirgt ist das schlecht ;-(

Hat jemand eine Idee oder eine Alternative zum Seriendruck?

Merci & Gruß

Andreas