Ergebnis 1 bis 5 von 5

Thema: Corel VBA Text aus Grafiktext auslesen

  1. #1
    Neuer Benutzer Newbie
    Registriert seit
    06.11.2014
    Beiträge
    13

    Standard Corel VBA Text aus Grafiktext auslesen

    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.

  2. #2
    Erfahrener Benutzer Profi Member
    Registriert seit
    24.03.2012
    Beiträge
    760

    Standard

    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
    Geändert von koter (07.11.2014 um 13:49 Uhr) Grund: Nachtrag
    W7pro|Corel X4/X7(64 Bit)

  3. #3
    Neuer Benutzer Newbie
    Registriert seit
    06.11.2014
    Beiträge
    13

    Standard

    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


  4. #4
    Erfahrener Benutzer Profi Member
    Registriert seit
    24.03.2012
    Beiträge
    760

    Standard

    Hallo Gexi,

    Das habe ich vorhin vergessen: Willkommen im Forum!

    Gruß

    Koter
    W7pro|Corel X4/X7(64 Bit)

  5. #5
    Neuer Benutzer Newbie
    Registriert seit
    06.11.2014
    Beiträge
    13

    Standard

    Danke !!!!

Ähnliche Themen

  1. Dateiname der importierten Grafik auslesen
    Von Hamu72 im Forum Corel Draw
    Antworten: 5
    Letzter Beitrag: 07.11.2014, 08:29
  2. Farbnamen der Objekte Auslesen X5
    Von Sunny_co im Forum Corel Draw
    Antworten: 4
    Letzter Beitrag: 04.11.2014, 13:35
  3. Bug in X6 Grafiktext?
    Von norre im Forum Corel Draw
    Antworten: 1
    Letzter Beitrag: 27.10.2013, 09:05
  4. Mengentext in Grafiktext konvertieren
    Von willirieck im Forum Corel Draw
    Antworten: 3
    Letzter Beitrag: 26.02.2012, 12:02
  5. Laufweite Grafiktext
    Von Fieke im Forum Corel Draw
    Antworten: 8
    Letzter Beitrag: 17.09.2010, 14:20

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •