:: Corel-FORUM :: WWW.CORELCLUB.ORG ::
http://corelforum.corelclub.org/

Texto a Curvas
http://corelforum.corelclub.org/viewtopic.php?f=11&t=1835
Página 1 de 1

Autor:  Leonardo Fioretti [ Lun, 21 Sep 2009, 23:31 ]
Asunto:  Texto a Curvas

Hola, realmente y si bien vengo trabajando con COREL desde hace algunos años confieso que no soy un EXPERTO, por eso por favor (me atajo jajaja) si mi consulta es "sencilla" tenganme paciencia.
Me dedico a la edición de una revista, y vaya, no he conseguido aún que COREL X3 me diga que tengo TODA la tipografía pasada a curvas.
Sabrán que esto es fundamental a la hora de llevarla a imprimir. La pregunta por ende es, ¿qué estoy haciendo mal o qué herramienta no he usado y que me permita de una vez tener TODO a curvas una vez completado el diseño?.
He probado con "Edición -> Seleccionar Todo -> Texto", y hasta he recorrido una a una las páginas, teniendo todo "desagrupado".
Desde ya muchas gracias por vuestra ayuda. Saludos desde Argentina.

Autor:  paiz valdivia [ Mar, 22 Sep 2009, 08:05 ]
Asunto:  Texto a Curvas

si miras las propiedades del documento te dirá que es lo que tienes de texto.. si artistico y de parrafo.. asi podras localizarlo rapidamente..
pero la forma mas rapida es convertirlo a pdf y desde ahi hacerlo con textos a curvas.

Autor:  Ariel Garaza Díaz [ Mar, 22 Sep 2009, 09:04 ]
Asunto:  Texto a Curvas

Citar:
Hola, realmente y si bien vengo trabajando con COREL desde hace algunos años confieso que no soy un EXPERTO, por eso por favor (me atajo jajaja) si mi consulta es "sencilla" tenganme paciencia.
Me dedico a la edición de una revista, y vaya, no he conseguido aún que COREL X3 me diga que tengo TODA la tipografía pasada a curvas.
Sabrán que esto es fundamental a la hora de llevarla a imprimir. La pregunta por ende es, ¿qué estoy haciendo mal o qué herramienta no he usado y que me permita de una vez tener TODO a curvas una vez completado el diseño?.
He probado con "Edición -> Seleccionar Todo -> Texto", y hasta he recorrido una a una las páginas, teniendo todo "desagrupado".
Desde ya muchas gracias por vuestra ayuda. Saludos desde Argentina.

Existe una macro que convierte todo los textos a curvas, incluso dentro de un powerclip, pero no es gratis aunque tampoco demasiado cara:
http://macromonster.com/index.php?mod=d ... &Submit=Go

Al respecto habria mucho por decir, pero para no extenderme demasiado. A veces ocurre (en especial en versones anteriores) que realmente no hay ningun texto en el archivo y aun asi informa que existe. Eso se debe a que ese tipo de letra esta incluida en alguno de los "Estilos" que podemos ver en la persiana de Estilos (Ctrl+F5) o en Herramientas / Opciones / Documento / Estilos. Aunque no los uses, esos estilos estan presentes al estar incluidos en el archivo.

Por otra parte, es un error muy comun lo de convertir todas las fuentes a curvas. Mala costumbre de la gente de Mac, que siempre pide "las fuentes trazadas" para no tener que es estar instalando y para que no les cambie las tipografias. En realidad, lo correcto es incluir las fuentes, instalarlas y abrir el archivo con sus fuentes. Eso se llama "preparar para el servicio de filmación", y es exatamente lo mismo que hacen otros programas como Freehand o Quark. Como Illustrator no tiene esa opcion, asi que lo único que le queda es convertir a curvas (convert to outlines - "convertir a trazados") Pero aunque obviamente es mas cómodo y seguro, genera archivos mucho mas grandes y mucho mas pesados.

Si envias el archivo CDR, lo mejor es ir s Archivo / preparar para el servicio de filmación, y hacer uan copia de las fuentes y del documento. Otra opcion es crear un PDF, en Archivo / publicar como PDF, elige PDF X/3, entra en configuracion y en la pestaña "objetos" elige "todos los textos a curvas". No olvides agregar sangrado y marcas de corte.

Autor:  Michael Cervantes [ Mar, 22 Sep 2009, 16:04 ]
Asunto:  Texto a Curvas

Yo no se porque cobran por eso, si los codigos son sencillos.
Código:
Sub textocurve()
Dim idx As Long, i As Long
Dim doc As Document
Dim p As Page
Dim g As New ShapeRange
Dim t As Shape
Dim tx As Shape
Dim gt As Shape

Set doc = ActiveDocument
idx = doc.ActivePage.Index
For i = idx To doc.Pages.Count
Set p = doc.Pages(i)
p.Activate
 
  
For Each t In ActivePage.Shapes

    If t.Type = cdrGroupShape Then
        t.Layer.Activate
        g.Add t
        g.Ungroup
        
    
        For Each gt In g.Shapes
            If gt.Type = cdrTextShape Then
                gt.ConvertToCurves
            End If
        Next gt
        g.Group
        g.RemoveAll
    
    End If
Next t
For Each tx In ActivePage.Shapes
    If tx.Type = cdrTextShape Then
        tx.ConvertToCurves
    End If

Next tx


Next i

End Sub

Autor:  camilo cobos [ Vie, 16 Abr 2010, 18:28 ]
Asunto:  Texto a Curvas

Citar:
Yo no se porque cobran por eso, si los codigos son sencillos.
Código:
Sub textocurve()
Dim idx As Long, i As Long
Dim doc As Document
Dim p As Page
Dim g As New ShapeRange
Dim t As Shape
Dim tx As Shape
Dim gt As Shape

Set doc = ActiveDocument
idx = doc.ActivePage.Index
For i = idx To doc.Pages.Count
Set p = doc.Pages(i)
p.Activate
 
  

y como hago para meterlo en corel????
For Each t In ActivePage.Shapes

    If t.Type = cdrGroupShape Then
        t.Layer.Activate
        g.Add t
        g.Ungroup
        
    
        For Each gt In g.Shapes
            If gt.Type = cdrTextShape Then
                gt.ConvertToCurves
            End If
        Next gt
        g.Group
        g.RemoveAll
    
    End If
Next t
For Each tx In ActivePage.Shapes
    If tx.Type = cdrTextShape Then
        tx.ConvertToCurves
    End If

Next tx


Next i

End Sub

Página 1 de 1 Todos los horarios son UTC+01:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/