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.

Yo no se porque cobran por eso, si los codigos son sencillos.

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