Re: [de-users] Basic-Makro: Im Writer suchen und ersetzen nur bis zum Dateiende

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+unsubscribe@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