Suchen und Ersetzen fehlt in 2023 SE?

[STONE]

Hallo!

Seit kurzem habe ich Corel Draw 2023 Special Edition.
Leider finde ich die Funktion "Suchen und Ersetzen" nicht in meinem alten X7 gab es diese?


Hat jemand das gleich Problem?

Gruß
Martin

[koter]

Hallo Martin,

willkommen im Forum!

Da noch keine Antwort auf Deine Frage kam, nehme ich an, dass kein aktives Mitglied Deine Version hat.
Ich habe sie auch nicht. Im Produktdatenblatt ist aber kein Haken bei „Suchen und ersetzen“:

(Zugeschnittener Screenshot)

Du musst also wohl leider ohne diese Funktion leben.

Gruß

Koter

[STONE]

Vielen Dank für deine Antwort.
Da habe ich mich im Vorfeld leider nicht ausreichend informiert.

Dann muss ich wohl damit leben

[koter]

Hallo Martin,

...Dann muss ich wohl damit leben

Falls VBA bei Deiner Version normal funktioniert,
könnte man einige Suchfunktionen damit erstellen.

Falls Dich das interessiert, kannst Du diesen Code testen:

Code:

Sub GrafikTextSuche()
   Dim sT As String, qT As String
   Dim sTxt As Shape
   Dim sr As ShapeRange
   Dim tSel As TextRange
   Dim tPos As Long
   Dim ng As Boolean
   
   ng = True
   sT = InputBox("Suchtext:", "Grafiktext durchsuchen")
   If sT = "" Then Exit Sub
   ActiveTool = cdrToolPick
   ActiveSelectionRange.RemoveFromSelection
   Set sr = ActivePage.Shapes.FindShapes(Query:="@type = 'text:artistic'")
   For Each sTxt In sr
       Set tSel = sTxt.Text.Story
       tPos = InStr(1, tSel, sT, vbTextCompare)
       If tPos > 0 Then
           tSel.SetRange tPos - 1, Len(sT) + tPos - 1
           sTxt.Text.BeginEdit
           tSel.Select
           ng = False
           Exit For
       End If
   Next
   If ng Then MsgBox "nicht gefunden", , " "
End Sub

Das Makro durchsucht die Grafiktexte der aktiven Seite nach einem bestimmten Text
und markiert die erste Fundstelle, falls der Text gefunden wurde.
(Erstellt mit X7)

Gruß

Koter

[Karthagos]

Hallo, ich nutze die CorelDRAW Graphics Suite 2021 und habe auch die Suchen und Ersetzen Funktion verfügbar.
Nachdem ich meist Text ersetze, ist die Vorgehensweise etwas umständlich.

1. Suchen und Ersetzen aufrufen
   
2. Text suchen auswählen
   
3. Ersetzen auswählen
   
4. gewünschten Suchtext eingeben
   

Also einige Aktionen, geht das auch schneller/direkter?