Texte über mehrere Seite in Kurven umwandeln

[koter]

Hallo Norbert,

Da gibt es ein Makro aus der CorelDRAW Community:

Code:

Public Sub ConvertALLTextToCurves()
    Dim p As Page
    
    For Each p In ActiveDocument.Pages
        ConvertShapes p.Shapes
    Next p
End Sub

Private Sub ConvertShapes(ss As Shapes)
    Dim s As Shape
    
    For Each s In ss
        Select Case s.Type
            Case cdrTextShape
                ConvertShapeCurves s
            Case cdrGroupShape
                ConvertShapes s.Shapes
        End Select
        On Error Resume Next
        If Not s.PowerClip Is Nothing Then
            ConvertShapes s.PowerClip.Shapes
        End If
    Next s
End Sub

Private Sub ConvertShapeCurves(s As Shape)
    Dim strName As String
    
    strName = s.Text.FontProperties.Name & " (size: " & s.Text.FontProperties.Size & " pt)"
    s.ConvertToCurves
    s.Name = strName
End Sub

Das sollte auch mit X8 klappen.

Gruß

Koter