Juergens-Workshops.de Forum
Alles markieren "Text" - Druckversion

+- 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: Alles markieren "Text" (/showthread.php?tid=36085)

Seiten: 1 2


Alles markieren "Text" - Herby1958 - 04.02.2015

Hallo zusammen,
ich erstelle gerade mit X5 eine Festschrift mit 56 Seiten. Um diese für die Druckerei vorzubereiten muss ich die Schriften in Kurven konvertieren. Gibt es eine Möglichkeit bei allen Seiten zusammen den Text zu markieren und dann in Kurven zu konvertieren, oder muss ich das tatsächlich bei jeder Seite einzeln machen ??

Danke für die Hilfe !


Alles markieren "Text" - Suc - 04.02.2015

Hallo

wenn du es als PDF weitergibst wird (auf Nachfrage)
alles in Kurven bzw Pfade umgewandelt..

oder hab ich dich da falsch verstanden?

freundlich grüsst
Suc


Alles markieren "Text" - Herby1958 - 04.02.2015

richtig, ich möchten gesamten Text in Kurven konvertieren und dann als pdf abspeichern zur Weitergabe an die Druckerei.
Aber mit "alles markieren --> TEXT" wird immer nur die aktuelle Seite markiert. Das müsste ich dann bei jeder der 56 Seiten einzeln machen. Meine Frage ist ob es eine Möglichkeit gibt bei allen 56 Seiten den Text auf einmal zu markieren.


Alles markieren "Text" - Hartmut - 04.02.2015

Die Einstellung findet im pdf-Fenster Statt.
[Bild: Einstell.gif]


Alles markieren "Text" - Herby1958 - 05.02.2015

vielen Dank !


Alles markieren "Text" - norre - 07.02.2015

Hallo Herby,
das umwandeln der Texte in Kurven sollte auf jedenfall, wie von Hartmut beschrieben, über
--> Datei-->PDF freigeben-->Einstellungen erfolgen. So hast du eine PDF mit Text in Kurven aber dein Dokument wird nicht verändert.

Sollte es doch mal vorkommen dass ich im ganzen Dokument den Text in Kurven wandeln will benütze ich ein Macro. Markieren musst du bei dem Macro nichts, es wandelt allen Text im Dokument in Kurven, außer dieser liegt im Powerclips
Das Macro ist nicht auf meinem Mist gewachsen, ich habe das schon ewig und weiß auch nicht mehr wo ich das her habe.
Sollte ich mit der Veröffentlichung irgendwelche Rechte verletzen, dann lösche ich den Code natürlich.
Code:
Sub ganzenTextinKurven()
    For i = 1 To ActiveDocument.Pages.Count
    ActiveDocument.Pages(i).Activate
    Set sr = ActivePage.Shapes.All
    If sr.Count > 0 Then
    ActivePage.Shapes.FindShapes(Query:="@type = 'text:artistic'").ConvertToCurves
   ActivePage.Shapes.FindShapes(Query:="@type = 'text:paragraph'").ConvertToCurves
    End If
    Next i
End Sub
Ich lasse das Macro natürlich nicht auf der Original-Datei laufen ;-)


Alles markieren "Text" - koter - 08.02.2015

norre schrieb:...es wandelt allen Text im Dokument in Kurven, außer dieser liegt im Powerclips...

Hallo Norre,

Dieser Code berücksichtigt auch Powerclips:

Code:
Sub AlleTexteInKurven()
    Dim Texte As ShapeRange
    Dim temp As New ShapeRange
    Dim Seite As Page
    Dim s As Shape
    Set col = Nothing
    For Each Seite In ActiveDocument.Pages
        Set Texte = FindAllShapes(Seite.Shapes.All).Shapes.FindShapes(Type:=cdrTextShape)
        For Each s In Texte
            If s.Type = cdrTextShape Then
               s.ConvertToCurves
               If s.Type = cdrGroupShape Then
                   If s.Shapes.Count < 2 Then
                       temp.Add s
                   End If
               End If
            End If
        Next
    Next
    For Each s In temp.Shapes
        s.Ungroup
    Next
End Sub

Function FindAllShapes(sr As ShapeRange) As ShapeRange
    Dim s As Shape
    Dim srAll As New ShapeRange, srPowerClipped As New ShapeRange
    Do
        For Each s In sr.Shapes.FindShapes(Query:="!@com.powerclip.IsNull")
            srPowerClipped.AddRange s.PowerClip.Shapes.FindShapes()
        Next s
        srAll.AddRange sr
        sr.RemoveAll
        sr.AddRange srPowerClipped
        srPowerClipped.RemoveAll
    Loop Until sr.Count = 0
    Set FindAllShapes = srAll
End Function

Die Funktion „FindAllShapes“ habe ich von von Shelby gemoppst.

Gruß

Koter


Alles markieren "Text" - norre - 08.02.2015

koter schrieb:Hallo Norre,
Dieser Code berücksichtigt auch Powerclips:

Hallo Koter,

Dankeschön


Alles markieren "Text" - Herby1958 - 13.02.2015

Hallo,
ich habe anhand eines Testtextes das mal probiert.
Zum einen wie vorgeschlagen über die PDF Einstellung und zum anderen wie ich es bisher gemacht habe über Text markieren -> als Kurven konvertieren. Dabei ist mir aufgefallen dass bei der PDF Einstellung bei manchen Schriftarten der Buchstabe "l" verfremdet wird. Bei der manuellen Einstellung ist dies nicht. Ich habe mal die beiden Ergebnisse auf meine Homepage geladen:

http://www.hp-webdesigns.de/test_manuell.pdf
http://www.hp-webdesigns.de/test_pdfeinstellung.pdf

An was kann das liegen ??


Alles markieren "Text" - norre - 13.02.2015

Herby1958 schrieb:PDF Einstellung bei manchen Schriftarten der Buchstabe "l" verfremdet wird.
........An was kann das liegen ??

Hallo Herby,

das dürfte der altbekannter Darstellungsfehler vom Acrobat Reader und Acrobat Pro
sein, der nur am Bildschirm erscheint

Mache mal im Acrobat Reader oder Pro bei
-->Bearbeiten-->Voreinstellungen-->Seitenanzeigen-->Dünne Linien deutlicher darstellen, den Haken raus,
dann schaut es schon anderst aus.

Schau auch hier http://www.juergens-workshops.de/board/showthread.php?t=15869&highlight=d%FCnne+linien