07.11.2014, 14:02
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.
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.