+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: Corel VBA Text aus Grafiktext auslesen (/showthread.php?tid=35878)
Corel VBA Text aus Grafiktext auslesen - Gexi - 07.11.2014
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.
Corel VBA Text aus Grafiktext auslesen - koter - 07.11.2014
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 SubNachtrag:
Es wäre gut, Deine CD-Version bekanntzugeben.
Gruß
Koter
Corel VBA Text aus Grafiktext auslesen - Gexi - 07.11.2014
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:
Corel VBA Text aus Grafiktext auslesen - koter - 07.11.2014
Hallo Gexi,
Das habe ich vorhin vergessen: Willkommen im Forum!
Gruß
Koter
Corel VBA Text aus Grafiktext auslesen - Gexi - 07.11.2014
Danke !!!!:bounce: