Corel VBA Text aus Grafiktext auslesen

[koter]

Hallo Gexi,

folgender Code erstellt eine PDF mit dem Text aus dem ersten Textobjekt auf dem Layer „Dateiname“ im Pfad des Dokuments:

Code:

Sub PDFDateiname()
    Dim s As Shape
    Dim l As Layer
    Dim pfad As String, Datei As String
    pfad = ActiveDocument.FilePath
    Set l = ActivePage.Layers("Dateiname")
    For Each s In l.Shapes
        If s.Type = cdrTextShape Then
            Datei = s.Text.Story.Text
            Exit For
        End If
    Next
    ActiveDocument.PublishToPDF pfad & Datei
End Sub

Nachtrag:
Es wäre gut, Deine CD-Version bekanntzugeben.

Gruß

Koter