Suchen und Ersetzen fehlt in 2023 SE?
#4
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
[-] 1 Benutzer bedankt sich bei koter für diesen Beitrag:
  • STONE
Zitieren



Nachrichten in diesem Thema
RE: Suchen und Ersetzen fehlt in 2023 SE? - von koter - 06.10.2024, 21:36

Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Dokumentschriftarten finden und (einfach) ersetzen in CDR X6? Sascha B. 33 12.832 13.09.2024, 12:48
Letzter Beitrag: koter
  Text partiell ersetzen Karthagos 2 402 26.05.2024, 21:09
Letzter Beitrag: Karthagos
  CorelDraw 2023 kein Plotten möglich purban 2 856 07.02.2024, 10:14
Letzter Beitrag: purban
  2023 Objekte aus Dateimanager auf Arbeitsfläche ziehen ? miniprints 0 454 23.01.2024, 15:17
Letzter Beitrag: miniprints
  Corel Draw 2023 Himmel 1 1.832 20.01.2024, 11:21
Letzter Beitrag: T3P4
  Graphics Suite 2022/2023 Andockfenster Corel Connect Lenka 2 1.248 13.12.2023, 09:26
Letzter Beitrag: Lenka
  Größenproblem in Corel Draw 2023 malexel 2 920 06.08.2023, 11:46
Letzter Beitrag: malexel
  Stapelverarbeitung mit Skript mit paintshop pro 2023 Jürgen M. 4 1.051 08.09.2022, 09:06
Letzter Beitrag: norre
  suchen und ersetzen Wild Thinng 4 1.123 07.01.2022, 12:19
Letzter Beitrag: Wild Thinng
  Fehlende Schriften ersetzen Karthagos 4 1.626 17.07.2021, 16:50
Letzter Beitrag: Karthagos