Juergens-Workshops.de Forum
Suchen und Ersetzen fehlt in 2023 SE? - Druckversion

+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: Suchen und Ersetzen fehlt in 2023 SE? (/showthread.php?tid=38741)

Seiten: 1 2

Suchen und Ersetzen fehlt in 2023 SE? - STONE - 01.10.2024

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? eek

Gruß
Martin

RE: Suchen und Ersetzen fehlt in 2023 SE? - koter - 04.10.2024

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“:

[Bild: sus2023se.jpg]
(Zugeschnittener Screenshot)

Du musst also wohl leider ohne diese Funktion leben.

Gruß

Koter


RE: Suchen und Ersetzen fehlt in 2023 SE? - STONE - 06.10.2024

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

Dann muss ich wohl damit leben Rolleyes

RE: Suchen und Ersetzen fehlt in 2023 SE? - koter - 06.10.2024

Hallo Martin,

(06.10.2024, 17:59)STONE schrieb: ...Dann muss ich wohl damit leben Rolleyes

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

RE: Suchen und Ersetzen fehlt in 2023 SE? - Karthagos - 07.10.2024

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
[attachment=22076]
2. Text suchen auswählen
[attachment=22077]
3. Ersetzen auswählen
[attachment=22078]
4. gewünschten Suchtext eingeben
[attachment=22079]

Also einige Aktionen, geht das auch schneller/direkter?

RE: Suchen und Ersetzen fehlt in 2023 SE? - koter - 08.10.2024

Hallo Günther,

wie genau soll der Ablauf sein?

Gruß

Koter

RE: Suchen und Ersetzen fehlt in 2023 SE? - Karthagos - 08.10.2024

Hallo Koter,

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

RE: Suchen und Ersetzen fehlt in 2023 SE? - koter - 08.10.2024

Hallo Günther,

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

[Bild: Text-Ersetzen.jpg]

in X7 geht das.

Gruß

Koter

RE: Suchen und Ersetzen fehlt in 2023 SE? - Karthagos - 08.10.2024

Hallo Koter,

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

RE: Suchen und Ersetzen fehlt in 2023 SE? - STONE - 09.10.2024

(06.10.2024, 21:36)koter schrieb: Hallo Martin,

(06.10.2024, 17:59)STONE schrieb: ...Dann muss ich wohl damit leben Rolleyes

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