Automatische aktuelle Datumsangabe

[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