Fecha actual Vie, 29 Mar 2024, 00:28

Todos los horarios son UTC+01:00




Cerrado  Este tema está cerrado, no puede editar mensajes o enviar nuevas respuestas  [ 5 mensajes ] 
Autor Mensaje
Desconectado
 Asunto: Texto a Curvas
MensajePublicado: Lun, 21 Sep 2009, 23:31 

País: Argentina
Software de Corel que más utiliza: CorelDRAW Graphics Suite 2021 ( versión 23 )
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.


Arriba
   
Desconectado
 Asunto: Texto a Curvas
MensajePublicado: Mar, 22 Sep 2009, 08:05 

País: Mexico
Software de Corel que más utiliza: CorelDRAW Graphics Suite 2022 ( versión 24 )
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.


Arriba
   
Desconectado
 Asunto: Texto a Curvas
MensajePublicado: Mar, 22 Sep 2009, 09:04 

Software de Corel que más utiliza: CorelDRAW Graphics Suite 2023 ( versión 24.3 )
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.


Arriba
   
Desconectado
 Asunto: Texto a Curvas
MensajePublicado: Mar, 22 Sep 2009, 16:04 

País: Cuba
Software de Corel que más utiliza: CorelDRAW Graphics Suite 2022 ( versión 24 )
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


Arriba
   
Desconectado
 Asunto: Texto a Curvas
MensajePublicado: Vie, 16 Abr 2010, 18:28 

País: Colombia
Software de Corel que más utiliza: CorelDRAW Graphics Suite 2022 ( versión 24 )
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


Arriba
   
Mostrar mensajes previos:  Ordenar por  
Cerrado  Este tema está cerrado, no puede editar mensajes o enviar nuevas respuestas  [ 5 mensajes ] 

Todos los horarios son UTC+01:00


No puede abrir nuevos temas en este Foro
No puede responder a temas en este Foro
No puede editar sus mensajes en este Foro
No puede borrar sus mensajes en este Foro
No puede enviar adjuntos en este Foro

Buscar:
Ir a:  

:: Corel-FORUM :: WWW.CORELCLUB.ORG ::

©1996-2024 Club Internacional de Usuarios de CorelDRAW - COREL-FORUM - El foro de ayuda entre usuarios de CorelDRAW en español, on-line desde 1996 - Corel is a registered trademark of Corel Corporation / Alludo

Desarrollado por phpBB® Forum Software © phpBB Limited
Traducción al español por phpBB España
Registrarse