Corel VBA Text aus Grafiktext auslesen

[Gexi]

Hallo !!!

Ich hoffe das ich hier im Forum eine Antwort bekomme da es zum Thema Corel VBA fast nix zu finden gibt.

Ich habe eine Vorlage erstellt aus der ich per VBA den TEXT aus der Ebene "Dateiname" kopieren möchte und beim "Als PDF Freigeben" zum Speicherort eintragen.

Ich habe vom Makrorecorder nur Folgenden Aufzeichnung.

Sub Macro4()
' Recorded 07.11.2014
ActiveLayer.Shapes.All.CreateSelection
ActiveSelection.Copy
With ActiveDocument.PDFSettings
.PublishRange = 0 ' CdrPDFVBA.pdfWholeDocument
.PageRange = ""
.Author = ""
.Subject = ""
.Keywords = ""
.BitmapCompression = 2 ' CdrPDFVBA.pdfJPEG
.JPEGQualityFactor = 10
.TextAsCurves = False
.EmbedFonts = True
.EmbedBaseFonts = True
.TrueTypeToType1 = True
.SubsetFonts = True
.SubsetPct = 80
.CompressText = True
.Encoding = 1 ' CdrPDFVBA.pdfBinary
.DownsampleColor = True
.DownsampleGray = True
.DownsampleMono = True
.ColorResolution = 200
.MonoResolution = 600
.GrayResolution = 200
.Hyperlinks = True
.Bookmarks = True
.Thumbnails = False
.Startup = 0 ' CdrPDFVBA.pdfPageOnly
.ComplexFillsAsBitmaps = False
.Overprints = True
.Halftones = False
.MaintainOPILinks = False
.FountainSteps = 256
.EPSAs = 0 ' CdrPDFVBA.pdfPostscript
.pdfVersion = 6 ' CdrPDFVBA.pdfVersion15
.IncludeBleed = False
.Bleed = 31750
.Linearize = False
.CropMarks = False
.RegistrationMarks = False
.DensitometerScales = False
.FileInformation = False
.ColorMode = 3 ' CdrPDFVBA.pdfNative
.UseColorProfile = True
.ColorProfile = 1 ' CdrPDFVBA.pdfSeparationProfile
.EmbedFilename = ""
.EmbedFile = False
.JP2QualityFactor = 10
.TextExportMode = 0 ' CdrPDFVBA.pdfTextAsUnicode
.PrintPermissions = 0 ' CdrPDFVBA.pdfPrintPermissionNone
.EditPermissions = 0 ' CdrPDFVBA.pdfEditPermissionNone
.ContentCopyingAllowed = False
.OpenPassword = ""
.PermissionPassword = ""
.EncryptType = 0 ' CdrPDFVBA.pdfEncryptTypeNone
.OutputSpotColorsAs = 0 ' CdrPDFVBA.pdfSpotAsSpot
.OverprintBlackLimit = 95
End With
ActiveDocument.PublishToPDF "C:\XXXXXX\tmp\Sepasdfafgaf.pdf"
End Sub

Ich würde also gerne den Grafiktext in eine Variable geben und ihn zum Speicherort dazu geben.

Ich wäre um Hilfe sehr dankbar.

[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

[Gexi]

Hallo Koter

Ich kann dir gar nicht sagen wie dankbar ich dir für diese Zeilen bin !!!

DANKE DANKE DANKE !!!

Der Code funktioniert bestens !!!

Zur Vollständigkeit : Ich benutze Corel Draw X6

lg Gexi

:daumen::sei_gepriesen:

[koter]

Hallo Gexi,

Das habe ich vorhin vergessen: Willkommen im Forum!

Gruß

Koter

[Gexi]

Danke !!!!:bounce: