Alles markieren "Text"

[norre]

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 ;-)