Hallo Werner,
vielen Dank! Allerdings hilft es mir nicht ganz weiter. Ich habe
folgendes Makro geschrieben und gedacht, dass ".searchAll = False"
verhindert, dass der gesamte Text bearbeitet wird:
--- schnipp
Sub ersetzenTest
Dim oViewCursor as Object
Dim oErsetzen
oDoc = ThisComponent
oViewCursor = oDoc.CurrentController.ViewCursor
oViewCursor.gotoEnd( True ) 'selektieren bis Dokument_Ende
repl = oDoc.createReplaceDescriptor()
With repl
.SearchString = "XXX"
.ReplaceString = "YYY"
.searchAll = False
End With
ThisComponent.ReplaceAll(repl)
end sub
--- schnapp
Das Ding ersetzt im gesamten Text "XXX" durch "YYY", nicht nur ab der
aktuellen Cursorposition? Warum?
Wie sieht ein Makro aus, das nur ab der Cursorposition ersetzt?
Guido
Am 11.03.24 um 13:28 schrieb Werner Tietz:
Hallo
###########
doc = ThisComponent
viewCursor = doc.CurrentController.ViewCursor
viewCursor.gotoEnd( True ) 'selektieren bis Dokument_Ende
repl = doc.createReplaceDescriptor()
repl.searchAll = False
……
#########################
Am 11.03.24 um 08:47 schrieb Guido Dischinger:
Hallo zusammen!
Mit einem Makro möchte ausschließlich im Text von der aktuellen
Cursorposition bis zum Dateiende suchen und ersetzen.
Per Makro kann ich zwar den Text mithilfe eines Textcursors bis zum
Dateiende "markieren", aber Suchen und Ersetzen kann ich (bisher) nur
im gesamten Dokument.
Wie kann ich mit einem Makro nur bis zum Textende suchen und ersetzen
und den Text vor der aktuellen Cursorposition unverändert lassen?
Beste Grüße
Guido Dischinger
--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme?
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
