Aktuellen Pfad der Datei

[Karolus]

Hallo

Code: Alles auswählen

ods_url = thisComponent.url
url_len = len( odsurl )
pdf_url = left( ods_url , url_len - 3) & "pdf"

pdf_url ist die Variable die du in der folgenden Zeile benutzt:

Code: Alles auswählen

args2(0).Value = pdf_url

Karo

[balu]

Hallo Nanduriel,

da ist dem liebem Karo ein Tiehpfähler unterlaufen
Richtig muss nämlich eine Code-Zeile wie folgt lauten.

Code: Alles auswählen

url_len = len( ods_url )

Ich hoffe das es nun auch bei dir funzt.



Gruß
balu

[nanduriel]

es funktioniert. Wunderbar ! Der Ordner wird automatisch angepasst =)

Allerdings habe ich durch die Lösung ein Problem.
Mit meinem vorherigen Quellcode wurde das PDF - Dokument ohne nachfragen in den gleichen Ordner mit einem bestimmten Namen abgespeichert.


Ich denke durch diesen Code

Code: Alles auswählen

dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 1, args2())

Jetzt frägt mich mich das Marko nach einem Speichernamen.
Mit welchem Befehl gebe ich einen definierten Dateinamen an - ohne das mich das Makro dannach frägt?



Mein aktueller Code

Code: Alles auswählen

sub testtesttest1
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 args2(1) as new com.sun.star.beans.PropertyValue
ods_url = thisComponent.url
url_len = len( ods_url )

pdf_url = left( ods_url , url_len - 3) & "pdf"
args2(0).Value = "69.pdf"
args2(1).Name = "FilterName"
args2(1).Value = "calc_pdf_Export"

dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 1, args2())


end sub

[Karolus]

Hallo
Warum lässt du plötzlich relevante Codezeilen weg?

Code: Alles auswählen

sub testtest
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

    ods_url = thisComponent.url  ' /pfad/zur/datei.ods
    url_len = len( ods_url )
    pdf_url = left( ods_url , url_len - 4) & "69.pdf"  '/pfad/zur/datei69.pdf

    dim args2(1) as new com.sun.star.beans.PropertyValue
    args2(0).Name = "URL"
    args2(0).Value = pdf_url
    args2(1).Name = "FilterName"
    args2(1).Value = "calc_pdf_Export"

    dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 1, args2())

end sub

Karo

[nanduriel]

Viel Dank Karo!

Jetzt funktinoiert es so wie ich will.
Ohne euch hätte ich für jede Kalenderwoche X 3 ein Makro schreiben müßen.
Hab durch euch viel Zeit und Nerven gespart.


DAAANNKE
=)