auch wenn es vielleicht schon xmal durchgekaut wurde. Ich habe den Durchblick völlig verloren. Für meine Firma habe ich einen Satz von Macros entwickelt (genauer: abgekupfert und zusammengeflickt) um aus einer Datenbank Daten abzufragen, Felder damit zu füllen und unter der eingetragenen Faxnummer in einem Verzeichnis abzulegen. Unter Fedora 6 (Version 2.3) lief alles. Nun habe ich die Rechner auf Kubuntu umgestellt und es geht nicht mehr.
Jetzt habe ich schon die dritte Version der Sub SaveAs aufgelegt und immer noch klappt es nicht:
Aufruf ist so:
Code: Alles auswählen
SaveAs3("~/Desktop/Ausgangskorb/"+Datensatz(10)+".odt")
Folgende Versionen gibt es bereits:
Code: Alles auswählen
REM --- Vom Macrorecorder
sub SaveAs (Filename as string)
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file://"+FileName
args1(1).Name = "FilterName"
args1(1).Value = "writer8"
args1(2).Name = "SelectionOnly"
args1(2).Value = true
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
end sub
Code: Alles auswählen
REM --- Aus einem anderen Forum
function SaveAs2 (sName as String) as boolean
on error goto ErrorHandler
dim bReturn as boolean
dim oDoc as object
dim saveProps() as new com.sun.star.beans.PropertyValue
dim sURL as String
dim sPath as String
' sPath = getPathWork()
sURL = ConvertToURL(sName)
oDoc = thisComponent
oDoc.storeAsURL (sURL, saveProps())
SaveAs2 = true
exit function
ErrorHandler:
MsgBox( "Error " & Err & ": " & chr(13) & Error$ & _
" (line : " & Erl & ")" & " in sub mdlNewHome.saveDocAs()")
SaveAs2= false
end function ' saveDocAs
Code: Alles auswählen
sub SaveAs3 (FileName as string)
oDoc=thisComponent
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FilterName"
args1(0).Value = "writer8"
oDoc.storeasurl("file://"+FileName, args1())
end sub
Vielen Dank für Eure Hilfe
Frank Becker
