OpenOffice.info

[quote="komma4"]
Ist "Datenfeld(10)" ohne Leer-/Sonderzeichen?
Das Verzeichnis ist beim ausführenden Benutzer vorhanden?
Übersetzt Deine Kubuntu-shell die Tilde richtig?

Bekommst Du überhaupt eine Fehlermeldung??[/quote]

Ja, Fehlermeldungen kamen. Ich habe vergessen diese zu posten. Aber Deine Hilfe war Gold wert! Das Problem war die Tilde. Die Tilde einfach durch home/frank ersetzt und schon klappte die ursprüngliche Version.

Danke für Deine Hilfe

Gute Nacht

Frank

WFM (2.3.0/Linux)

Ist "Datenfeld(10)" ohne Leer-/Sonderzeichen?
Das Verzeichnis ist beim ausführenden Benutzer vorhanden?
Übersetzt Deine Kubuntu-shell die Tilde richtig?

Bekommst Du überhaupt eine Fehlermeldung??

SaveAs3("~/Desktop/Ausgangskorb/"+Datensatz(10)+".odt")

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

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

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

Hallo Leute,
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]
SaveAs3("~/Desktop/Ausgangskorb/"+Datensatz(10)+".odt")
[/code]


Folgende Versionen gibt es bereits:

[code]
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]

[code]
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]

[code]
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
[/code]

Kann mir jemand von Euch helfen, das Problem zu lösen? Gern würde ich die Macros weiterverwenden.

Vielen Dank für Eure Hilfe

Frank Becker