PDF in Writer erstellen mittels einem Makro?

[mikele]

Hallo,

Was meinst du mit "sDateiname"?

???
Es ist eine Variable.

[Strunz]

Hier ist mein Code:

Code: Alles auswählen

Sub druckenpdf

Dim odoc As Object
Dim formular As Object
Dim args(0) As New com.sun.star.beans.PropertyValue

args(0).Name = "Filtername"
args(0).Value = "writer_pdf_Export"

odoc = ThisComponent

formular = odoc.DrawPage.Forms.getByName("Formular")

formular.storeToURL("file:///Users/strunz/Desktop/test.pdf", args ())

Jetzt kommt folgende Fehlermeldung:

Eigenschaft oder Methode nicht gefunden (formular.storeToURL usw.)

[mikele]

Hallo,
ursprünglich hieß es, in der Codezeile

Code: Alles auswählen

odoc.storeToURL("file:///Users/strunz/Desktop/test.pdf", args ())
Nach oben

käme eine Fehlermeldung.
Nach verschiedenen Vorschlägen eine Lösung zu finden, obwohl die Fehlermeldung sehr untypisch wäre, lautet die Codezeile nun auf einmal

Code: Alles auswählen

formular.storeToURL("file:///Users/strunz/Desktop/test.pdf", args ())

Diese ist offensichtlich falsch und führt zu der genannten Fehlermeldung. Die ursprüngliche Codezeile ist fehlerfrei.

[gogo]

Hallo,

ich brauche ein Makro mit dem ich ein Dokument (Writer-Formular) in
ein "PDF"-Formular konvertieren kann?

Mfg
Strunz

sry -ich glaube wir haben da etwas überlesen oder falsch verstanden "Dokument (Writer-Formular)" ist missverständlich. Ein Dokument kannst Du mit .storetoUrl() speichern, ein Formular innerhalb des Dokuments hat diese Methode nicht.

Daher stellt sich jetzt die Frage: Möchtest Du jetzt das ganze Dokument neu abspeichern, oder nur die Daten, die in diesem Formular sind als eigene Datei speichern?

[Strunz]

Hallo,

ich brauche ein Makro mit dem ich ein Dokument (Writer-Formular) in
ein "PDF"-Formular konvertieren kann?

Mfg
Strunz

sry -ich glaube wir haben da etwas überlesen oder falsch verstanden "Dokument (Writer-Formular)" ist missverständlich. Ein Dokument kannst Du mit .storetoUrl() speichern, ein Formular innerhalb des Dokuments hat diese Methode nicht.

Daher stellt sich jetzt die Frage: Möchtest Du jetzt das ganze Dokument neu abspeichern, oder nur die Daten, die in diesem Formular sind als eigene Datei speichern?

Ich möchte nur die Daten, die in diesem Formular sind als eigene Datei speichern!

[craig]

Hallo,

ein Hinweis:

Dieses führt auf Windows-Systemen zu einem Explorerfehler:
file:///Users/

richtig ist:
file:///C:/Users/

Statt C:/ kann auch ein anderer Laufwerksbuchstabe korrekt sein.

[mikele]

Hallo craig,

Strunz schrieb, dass der Fehler unter Mac OS X auftaucht.
Allerdings variieren die Fehlermeldungen:
ursprünglich sollte es

Eigenschaft oder Methode nicht gefunden "storeToURL"

gewesen sein
dann

Die Datei konnte nicht geöffnet werden

Dazu geht es um unterschiedlichen Code.
Ich werde daraus nicht schlau.

[craig]

Hallo mikele

Mac OS X

Sorry, hatte ich nicht gelesen.
Wie der Pfad, wohl eher die URL bei einem Mac aussieht weiß ich nicht.
Ich denke ähnlich wie unter Unix/ Linux.
Dabei wird es wichtig sein die Zugriffsrechte zu prüfen, usw.
Und ich würde mich freuen wenn sich Strunz hierzu äußert, damit ich auch etwas lernen kann...


Es stellen sich auf jeden Fall mehrere Fragen:

1. Zeichne ein Textfeld und ein Listenfeld in ein Writerdokument.
   Kontextmenü → Formulareigenschaften → Register "Allgemein"´→ Name = Formular
   Dies bei beiden Steuerelementen.

2. Code: Alles auswählen

   REM  *****  BASIC  *****
   
   Sub Main
   Dim oDoc as Object
   Dim oForm1 as Object
   oDoc = ThisComponent
   'xray odoc
   oForm1 = oDoc.DrawPage.Forms.getByName("Formular")
   Print oForm1.count
   
   xray oForm1.ControlModels
   
   End Sub
   

   Somit ist "oForm1" die Referenz für beide Steuerelemente.
3. Dies kann nicht funktionieren, weil

   Code: Alles auswählen

   'oForm1.storeToURL("file:///Users/strunz/Desktop/test.pdf", args ())

   1. kein explizites Element angesprochen wird
   2. und es kann nicht funktionieren, weil es weder eine Eigenschaft, noch eine Methode
      "oForm1.storeToURL" gibt.

      Code: Alles auswählen

      xray oDoc.DrawPage.Forms.getByName("Formular")

4. Selbst wenn man sich nun explizit das richtige Steuerelement greift (z.B. Textfeld1),
   gibt es keine Eigenschaft oderMethode storeToURL
   Es bliebe nur den String des Steuerelements auszulesen, diesen in ein Dokument schreiben und nun den Export starten.

@Strunz
Ein kleiner Verbesserungsvorschlag:

Code: Alles auswählen

formular = odoc.DrawPage.Forms.getByName("Formular")

Ich habe mehrfach gelesen , dass man es vermeiden sollte, eine Variable 1:1 nach einem bestehenden
Objekt, einer Methode oder Eigenschaft, usw. zu benennen, da dies u.U. zu Konflikten führen kann.

Es kann zwar jeder programmieren wie er möchte, aber gerade am
Anfang ist es sinnvoll sich an diese Konventionen zu halten.
https://wiki.openoffice.org/wiki/DE/Mak ... #Variablen

Verbesserungsvorschlag:

Code: Alles auswählen

Dim oForm1 as Object
oForm1 = odoc.DrawPage.Forms.getByName("Formular")

oder so:

Code: Alles auswählen

Dim oFormular as Object
oFormular = odoc.DrawPage.Forms.getByName("Formular")

[gogo]

... Ich möchte nur die Daten, die in diesem Formular sind als eigene Datei speichern!...

2 Fragen noch:
1. als lesbares schönes pdf, oder nur die Rohdaten
2. sollen in der Datei Daten eines Datensatzes vorkommen oder kommen mehrere Datensätze zusammen? Beispiel: Adresse im Briefkopf = "Daten eines Datensatzes", die Artikel eines Einkaufs = "mehrere Datensätze"