Alles markieren "Text"
#7
norre schrieb:...es wandelt allen Text im Dokument in Kurven, außer dieser liegt im Powerclips...

Hallo Norre,

Dieser Code berücksichtigt auch Powerclips:

Code:
Sub AlleTexteInKurven()
    Dim Texte As ShapeRange
    Dim temp As New ShapeRange
    Dim Seite As Page
    Dim s As Shape
    Set col = Nothing
    For Each Seite In ActiveDocument.Pages
        Set Texte = FindAllShapes(Seite.Shapes.All).Shapes.FindShapes(Type:=cdrTextShape)
        For Each s In Texte
            If s.Type = cdrTextShape Then
               s.ConvertToCurves
               If s.Type = cdrGroupShape Then
                   If s.Shapes.Count < 2 Then
                       temp.Add s
                   End If
               End If
            End If
        Next
    Next
    For Each s In temp.Shapes
        s.Ungroup
    Next
End Sub

Function FindAllShapes(sr As ShapeRange) As ShapeRange
    Dim s As Shape
    Dim srAll As New ShapeRange, srPowerClipped As New ShapeRange
    Do
        For Each s In sr.Shapes.FindShapes(Query:="!@com.powerclip.IsNull")
            srPowerClipped.AddRange s.PowerClip.Shapes.FindShapes()
        Next s
        srAll.AddRange sr
        sr.RemoveAll
        sr.AddRange srPowerClipped
        srPowerClipped.RemoveAll
    Loop Until sr.Count = 0
    Set FindAllShapes = srAll
End Function

Die Funktion „FindAllShapes“ habe ich von von Shelby gemoppst.

Gruß

Koter
Zitieren



Nachrichten in diesem Thema
Alles markieren "Text" - von Herby1958 - 04.02.2015, 08:22
Alles markieren "Text" - von Suc - 04.02.2015, 09:12
Alles markieren "Text" - von Herby1958 - 04.02.2015, 09:56
Alles markieren "Text" - von Hartmut - 04.02.2015, 10:23
Alles markieren "Text" - von Herby1958 - 05.02.2015, 10:42
Alles markieren "Text" - von norre - 07.02.2015, 16:29
Alles markieren "Text" - von koter - 08.02.2015, 02:05
Alles markieren "Text" - von norre - 08.02.2015, 13:16
Alles markieren "Text" - von Herby1958 - 13.02.2015, 10:36
Alles markieren "Text" - von norre - 13.02.2015, 11:36
Alles markieren "Text" - von Herby1958 - 14.02.2015, 09:08

Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Text partiell ersetzen Karthagos 2 513 26.05.2024, 21:09
Letzter Beitrag: Karthagos
  Corel Draw 2019 Text vertikal nilaschmi 5 1.743 14.02.2024, 17:53
Letzter Beitrag: skifan
  Makro - Text an Rechteck ausrichten benni313 5 948 31.01.2024, 09:20
Letzter Beitrag: benni313
  Corel importiert Text aus PDF nur noch als Sonderzeichen Kay_Maehnert 0 484 10.11.2023, 18:36
Letzter Beitrag: Kay_Maehnert
  Textzeilen in einzelne Text-Objekte aufteilen Karthagos 8 1.556 01.05.2023, 10:34
Letzter Beitrag: Karthagos
  Text mit innerem Umriss mtemp 2 756 16.03.2023, 07:35
Letzter Beitrag: Piet
  Text in russisch OsCor 3 1.070 20.11.2022, 14:30
Letzter Beitrag: OsCor
  Kurven wieder in Text umwandeln Karthagos 18 4.254 30.04.2022, 12:24
Letzter Beitrag: koter
  Text in Corel Vorlage anhand von Makro / VBA ändern Olaf 4 2.213 02.03.2021, 11:06
Letzter Beitrag: Olaf
  Text drehen Karthagos 3 2.252 15.04.2020, 18:28
Letzter Beitrag: Karthagos