OpenOffice.info

Verfasst: **Fr, 02.03.2012 16:26**

Hallo

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

Verfasst: **Fr, 02.03.2012 17:44**

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

Verfasst: **Fr, 02.03.2012 20:16**

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

Verfasst: **Fr, 02.03.2012 20:40**

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

Verfasst: **Fr, 02.03.2012 20:55**

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
=)

OpenOffice.info

Aktuellen Pfad der Datei

Re: marko - dateipfad

Re: Aktuellen Pfad der Datei

Re: Aktuellen Pfad der Datei

Re: Aktuellen Pfad der Datei

Re: Aktuellen Pfad der Datei