Am 12.03.24 um 22:53 schrieb Gerhard Weydt:
...
Das ist also nur eine eingeschränkte Lösung für Guidos Fragestellung;
vielleicht genügt es ihm ja.
Ja, dem genügt es vollkommen, auch weil er nur mit Writer arbeitet und
dieses Makro nur auf Dateien losgelassen wird, die nur Unicode-Zeichen
mich weiterhin rätselhaft/unerklärlich, dass
»VC.String« zusätzliche LFs »herbei zaubert«.
Grüße
Hans-Werner ;-))
-- Originalnachricht --
Von "Gerhard Weydt"
An users@de.libreoffice.org
Datum 12.03.2024 22:53:43
Betreff Re: [de-users] Basic-Makro: Im Writer suchen und ersetze
Hallo Hans-Werner,
laut Thomas Krumbeins Makro-Buch ist CR der Zeilenwechsel für Mac, LF
der für Linux und CR + LF der für Windows. Das erklärt vielleicht das
von dir beschriebene Phänomen, ich weiß aber auch nicht wie.
Ich habe dein Makro Guido mal ausprobiert für ein Dokument, das eine
Hallo Guido,
so wie's ausschaut, hängt »VC.String« an vorhandene CRs = Chr(13)
automatisch ein LF = Chr(10) an.
Das habe ich mit diesem BasicMakro (offensichtlich) herausgefunden:
Sub VCString
'--- WRITER-Datei via LibreOffice
'ABC¶
'DEF¶
le 1" & Chr(10) & "Zeile 2")
Ansonsten tut das BasicMakro was es soll ... hoffe ich mal ;-))
Grüße
Hans-Werner ;-))
-- Originalnachricht --
Von "Guido Dischinger"
An users@de.libreoffice.org
Datum 11.03.2024 21:18:06
Betreff Re: [de-users] Basic-Makro
Hallo, Werner,
danke - das funktioniert. Mein Problem ist gelöst.
Ehrlich gesagt, ich hatte gehofft, es geht ohne Aufzeichnen. Das
Aufzeichnen führt zu ellenlangem Code. Ein "händisches" Makro ist kürzer
und in der Regel besser verständlich. Aber ich muss ja nicht in
Schönheit sterben...
Hallo
Dann eben ⇒Makro aufzeichnen:
###
sub record_search_replace_selection()
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
alles ja irgendwie weiter eine für Dich
passende Lösung zu realisieren,
Grüße
Hans-Werner ;-))
-- Originalnachricht --
Von "Guido Dischinger"
An users@de.libreoffice.org
Datum 11.03.2024 08:47:35
Betreff [de-users] Basic-Makro: Im Writer suchen und ersetzen nur bis
zum Dateiend
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
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
An users@de.libreoffice.org
Datum 11.03.2024 08:47:35
Betreff [de-users] Basic-Makro: Im Writer suchen und ersetzen nur bis
zum Dateiende
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 zwa
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
12 matches
Mail list logo
