Automatische aktuelle Datumsangabe

[norre]

Fehlt dir ne Funktion in Corel Draw, hat der Koter bestimmt ein Macreo................

ok schlecht gereimt, aber wieder mal Klasse von dir gelöst.
Das werde ich mir sicher auch abspeichern - Danke

[koter]

Das werde ich mir sicher auch abspeichern

Hallo norre,

funktioniert das Ding bei Dir?

Gruß
koter

[Suc]

Bin zwar nich Norre aba ich habs auch mal ausprobiert...

ich habs jetzt so verstanden das ich einfach einen x-beliebigen
Text schreibe .. im ObjektManager das Ding umbenenne und dann solls funktionieren ... ja?

also bei mir gehts nicht wenn ich über die Druckvorschau gehe.. da zeigt er mir immer meinen x-beliebigen text
an und auch beim Druck bleibt es dabei..
wenn ich direkt aus dem Dokument drucke ohne über die Druckvorschau zu gehen..
ist der 1te Ausdruck mein x-beliebiger Text.. sobald ich dann nochmal ausdrucke wirds ins
aktuelle Datum umgewandelt...

soweit mal meine Versuche
Win7 64 Gedöns und X6 mit allen Patchgedöns

freundlich grüsst

Suc

[Blacky]

Hallo koter…;-)

Habe Win7 Ultimate - 64 Bit und Corel X6.2 - 64 Bit.
Da ich momentan keinen Drucker zur Verfügung habe, hat meine Schwester, konnte ich nur
das Makro über den „Makro - Manager“ ausführen. Klappt wunderbar so. Sobald ich meinen Drucker
wieder habe wird gleich getestet. Habe mir gleich ein Dokument mit allen vier Ausgabeformaten
angelegt. Alles in einer Zeile und ausgerichtet. Das Format das ich benötige wird dann eingeblendet.
Tolles Makro. Danke!

[norre]

Hallo norre,
funktioniert das Ding bei Dir?

Hallo Koter, ja funktioniert . Ich habe allerdings die Zeilen mit dem Druck rausgenommen und mir ein Icon zur manuellen Aktualisierung angelegt.

[lissycat]

Mann, da war ja noch richtig was los hier im Thread gestern Abend. :-)

Ich habe es jetzt gerade mal ausprobiert, es funktioniert, allerdings genauso wie suc beschreibt, erst beim 2. Druck, aber immerhin, besser als gar keine Automation

Die Dokumentation über VBA Makros habe ich auch mittlerweile gefunden, da werde ich mich dann mal durchwühlen, wenn ich viel Zeit habe, ist ein interessantes Thema, nur leider ist es nochmal so schwer zu verstehen, wenn es englisch erklärt ist.

Aber vielen Dank für deine Erstellung, muss ich mir unbedingt auch mal aneignen.

LG Lissycat :daumen:

[siggimitbart]

Hallo Zusammen, ich komme aus der Zukunft (2024) und bin auf diesen Post gestoßen. Der hat mir shcon sehr geholfen. Nun meine Frage an den Code Ersteller: Ist es möglich, dass man anstatt "Print" auch "PDF freigeben" macht. Wie das in der Programmiersprache heißt, weiß ich nicht.

Also bei Augabe als PDF soll das Datum aktuallisiert werden.

Freu mich auf eine Antwort und hoffe, dass hier überhaupt noch jemand aktiv ist.

Beste Grüße

[koter]

Hallo Siggi,

Grüße aus der Vergangenheit und willkommen im Forum!

Leider kann man kein Makro vor der Ausgabe als PDF automatisch ausführen lassen.

Man könnte von einem Makro die Datumsangabe aktualisieren und anschließend die PDF-Ausgabe durchführen lassen.
Falls Dir das etwas nützen würde, gib Bescheid.

Gruß

Koter

[siggimitbart]

Hallo Koter, das habe ich mittlerweile auch herausgefunden.
Ja das wäre dann alternativ super.

Wäre es dann möglich, das in der Befehlsleiste oben als ICON zum draufklicken zu haben.

Ein Icon dafür könnt eich erstellen. Aber ob man das dann dort oben hereinbekommt weiß ich nicht.

Danke!

[siggimitbart]

Ich habe mal einen Code gemacht der tut auch das was er soll.
Nur möchte ich eigentlich nicht in das Dialogfeld "Export" sondern in den Dialog "Als PDF ausgeben"

Wenn ich aber im Code doc.PublishToPdf rein mache bekomme ich eine Fehlermeldung.
Wenn ich hingegen doc.export rein mache funktioniert es.

Warum tut sich corel mit PublishToPdf so schwer?

Das hier funktioniert:

Code:

Sub UpdateDateAndExport()
   Dim doc As Document
   Dim shape As shape
   Dim currentDate As String
   Dim shapeName As String

   ' Aktuelles Datum im Format "DD.MM.YY"
   currentDate = Format(Date, "DD.MM.YY")

   ' Aktuelles Dokument abrufen
   Set doc = ActiveDocument

   ' Alle Formen im Dokument durchlaufen
   For Each x In ActiveDocument.SelectableShapes
       ' Überprüfen, ob die Form ein Grafiktext (TextShape) ist
       If x.Name = "DatumHeute" Then
           x.text.Story = Date
           ElseIf Left(x.Name, 10) = "DatumHeute" Then
           ds = Split(x.Name, "(")
           FormatString = Left(ds(1), Len(ds(1)) - 1)
           x.text.Story = Format$(Date, FormatString)
           FormatString = ""
       End If
   Next

   ' Dokument speichern
   doc.Save
         

   ' Dokument als PDF exportieren
   doc.Export FilePath, cdrPDF, pdfExportOptions


End Sub

Das hier funktioniert nicht:

Code:

Sub UpdateDateAndExport()
   Dim doc As Document
   Dim shape As shape
   Dim currentDate As String
   Dim shapeName As String

   ' Aktuelles Datum im Format "DD.MM.YY"
   currentDate = Format(Date, "DD.MM.YY")

   ' Aktuelles Dokument abrufen
   Set doc = ActiveDocument

   ' Alle Formen im Dokument durchlaufen
   For Each x In ActiveDocument.SelectableShapes
       ' Überprüfen, ob die Form ein Grafiktext (TextShape) ist
       If x.Name = "DatumHeute" Then
           x.text.Story = Date
           ElseIf Left(x.Name, 10) = "DatumHeute" Then
           ds = Split(x.Name, "(")
           FormatString = Left(ds(1), Len(ds(1)) - 1)
           x.text.Story = Format$(Date, FormatString)
           FormatString = ""
       End If
   Next

   ' Dokument speichern
   doc.Save
         

   ' Dokument als PDF exportieren
   doc.PublishToPDF FilePath, cdrPDF, pdfExportOptions


End Sub