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?

[koter]

Hallo Günther,

wie genau soll der Ablauf sein?

Gruß

Koter

[Karthagos]

Hallo Koter,

am liebsten würde ich direkt in dieser Maske "landen"
   
damit ich nur noch die Suchen- und Ersetzen-Begriffe eingeben muss, so wie in Office mit dem shortcut <Strg>+<H>

[koter]

Hallo Günther,

kann man dafür in Deiner Version keinen Tastaturbefehl vergeben?



in X7 geht das.

Gruß

Koter

[Karthagos]

Hallo Koter,

anscheinend ist die Funktion in 2019 dem Rotstift zum Opfer gefallen.
   
und über Bearbeiten kann ich durch Klick auf Suchen und ersetzen
   
nur das Seitenfenster öffnen
   
über den shortcut Strg+F passiert gar nichts. Aber das wäre ja auch nicht das, was ich brauche.

[STONE]

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

Hallo Koter,

vielen Dank für den Code! VBA sollte funktionieren. Ich werde morgen den Code mal testen.

Danke dir!
Gruß
Martin