Re: [de-users] Re: Bitte keine Mails mehr!!!

[Robert Großkopf]

Hallo Bernhard,

> Das mit dem  "users+unsubscr...@de.libreoffice.org" klappt aber (zumindest in 
> meinem Fall) nicht.
> Ich habe schon mehrfach dorthin gesendet und bekomme die Liste trotz 
> Bestätigung der Abmeldung immer noch.

Du hast also eine Mail zurückerhalten, die Du anschließend auch noch
bestätigt hast?

Schau einmal hier:
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/

Gruß

Robert
-- 
Homepage: https://www.familiegrosskopf.de/robert


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

Re: [de-users] Re: Bitte keine Mails mehr!!!

[Bernhard Schiffner]

Das mit dem  "users+unsubscr...@de.libreoffice.org" klappt aber (zumindest in 
meinem Fall) nicht.
Ich habe schon mehrfach dorthin gesendet und bekomme die Liste trotz 
Bestätigung der Abmeldung immer noch.

Vielleicht gibt es da ein Problem ...
Viele Grüße!
Bernhard

PS:
Die Liste ist aber interessant zu verfolgen, sonst hätte ich mich schon eher 
gemeldet.

Am Mittwoch, 8. Januar 2020, 20:35:25 CET schrieb Robert Großkopf:
> Hallo Hans-Werner,
> > 
> > Ich habe keine Mails an "Peter Blechert"  gesendet,
> > nur an users@de.libreoffice.org !!!
> 
> Peter hat wohl nicht verstanden, was passiert, wenn er sich bei einer
> Mailingliste anmeldet.
> 
> Peter: Schreibe eine leere Mail von dem Account aus, von dem Du Dich
> angemeldet hast, an
> users+unsubscr...@de.libreoffice.org
> 
> ... Das steht auch unter jeder Mail.
> 
> Gruß
> 
> Robert
> 





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

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[Rainer]

Hallo Hans-Werner,

Am Wed, 08 Jan 2020 19:10:01 +
schrieb OoOHWHOoO :
> 
> da hattest Du wohl diese Zeile in einer meiner letzten eMails
> übersehen:
> 
> "[...] [4] Öffne eine neue Datei mit WRITER und starte das Makro.
> [...]"
> 
Ja, ist mir irgendwie entgangen,,,

> Allerdings hatte ich da nicht explizit dazu geschrieben, dass die zu 
> bearbeitenden "odt"-Dateien geschlossen sein müssen. SORRY ...
> 
Bei dem Hinweis wäre ich wenigstens ins Grübeln gekommen, denn mit
einer der betroffenen Dateien das Makro loszuschicken und sie
gleichzeitig geschlossen zu lassen, ist ja nicht möglich ;-)

> "[...] Gewöhnungsbedürftig, aber Hautsache, es geht. [...]"
> 
> Deswegen war mein erster Lösungsvorschlag der mit PERL, bei dem mit 
> einem anderen Programm das LibreOffice-Makro extern gestartet wird,
> ohne dass man selbst was mit LibreOffice machen muss.
> 
Naja, für mich wäre es in punkto Aufwand ja auf das gleiche
hinausgelaufen (1 Start von irgendwas und dann das Makro starten, bevor
eine Datei geöffnet wird).

Interessant wäre noch, ob es mit dem - evtl. modifizierten - Makro auch
einen Weg gibt, ein Verzeichnis mit Unterverzeichnissen auf mehreren
Ebenen in einem Rutsch zu bearbeiten.

> Ich erhalte Deine eMails IMMER doppelt. Gebe bitte meine
> eMail-Adresse nicht unter "CC:" an, ich erhalte ja Deine eMails
> automatisch von users@de.libreoffice.org !
> 
Ist mir schon klar, aber ich vermute die Ursache bei Dir. Alle Deine
Postings in diesem Thread hast Du als cc-Empfänger an Dich selbst
geschickt, und beim Antworten ignoriert es mein Mailprogramm nicht,
sondern übermittelt das Posting auch an die cc-Adresse. Bei dieser hier
lösche ich sie jetzt 'raus, aber vielleicht überprüfst Du Deine
Einstellungen.

Viele Grüße

Rainer

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

Re: [de-users] Re: Bitte keine Mails mehr!!!

[Robert Großkopf]

Hallo Hans-Werner,
> 
> Ich habe keine Mails an "Peter Blechert"  gesendet,
> nur an users@de.libreoffice.org !!!

Peter hat wohl nicht verstanden, was passiert, wenn er sich bei einer
Mailingliste anmeldet.

Peter: Schreibe eine leere Mail von dem Account aus, von dem Du Dich
angemeldet hast, an
users+unsubscr...@de.libreoffice.org

... Das steht auch unter jeder Mail.

Gruß

Robert
-- 
Homepage: https://www.familiegrosskopf.de/robert


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

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[OoOHWHOoO]

Hallo Rainer,

da hattest Du wohl diese Zeile in einer meiner letzten eMails übersehen:

"[...] [4] Öffne eine neue Datei mit WRITER und starte das Makro. [...]"

Allerdings hatte ich da nicht explizit dazu geschrieben, dass die zu 
bearbeitenden "odt"-Dateien geschlossen sein müssen. SORRY ...


"[...] Gewöhnungsbedürftig, aber Hautsache, es geht. [...]"

Deswegen war mein erster Lösungsvorschlag der mit PERL, bei dem mit 
einem anderen Programm das LibreOffice-Makro extern gestartet wird, ohne 
dass man selbst was mit LibreOffice machen muss.


Ich erhalte Deine eMails IMMER doppelt. Gebe bitte meine eMail-Adresse 
nicht unter "CC:" an, ich erhalte ja Deine eMails automatisch von 
users@de.libreoffice.org !


Dann gutes Gelingen,
Grüße
Hans-Werner ;-))


-- Originalnachricht --
Von: "Rainer" 
An: users@de.libreoffice.org
Cc: "OoOHWHOoO" 
Gesendet: 08.01.2020 19:53:00
Betreff: Re: [de-users] alte Dokumente unlesbar (Codierung?)


Hallo Hans-Werner,

Am Wed, 08 Jan 2020 18:04:21 +
schrieb OoOHWHOoO :


 diese Fehlermeldung sagt mir leider nicht wirklich viel, hat wohl was
 mit dem Speichern der Dateien zu tun.

 Mich wundert es, dass es mit 2 Dateien funktioniert hat.

 Waren alle 4 Dateien "Test_A.odt", "Test_B.odt", "Test_C.odt" und
 "Test_D.odt" geschlossen, als Du das Makro gestartet hast ?


Nein: Ich hatte eine geöffnet, um dort das Makro zu starten. Deine
Nachfrage hat mich jetzt erst darauf gebracht, dass es auf einem
anderen Wege funktionieren könnte - und das tut es: Leere Writer-Datei
gestartet und mit der das Makro. So funktioniert es offenbar.
(jedenfalls bei ersten Tests). Gewöhnungsbedürftig, aber  Hautsache, es
geht.

Vielen Dank und viele Grüße

Rainer

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

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

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[Rainer]

Hallo Hans-Werner,

Am Wed, 08 Jan 2020 18:04:21 +
schrieb OoOHWHOoO :
> 
> diese Fehlermeldung sagt mir leider nicht wirklich viel, hat wohl was 
> mit dem Speichern der Dateien zu tun.
> 
> Mich wundert es, dass es mit 2 Dateien funktioniert hat.
> 
> Waren alle 4 Dateien "Test_A.odt", "Test_B.odt", "Test_C.odt" und 
> "Test_D.odt" geschlossen, als Du das Makro gestartet hast ?
> 
Nein: Ich hatte eine geöffnet, um dort das Makro zu starten. Deine
Nachfrage hat mich jetzt erst darauf gebracht, dass es auf einem
anderen Wege funktionieren könnte - und das tut es: Leere Writer-Datei
gestartet und mit der das Makro. So funktioniert es offenbar.
(jedenfalls bei ersten Tests). Gewöhnungsbedürftig, aber  Hautsache, es
geht.

Vielen Dank und viele Grüße

Rainer

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

[de-users] Re: Bitte keine Mails mehr!!!

[OoOHWHOoO]

Was soll das ?

Ich habe keine Mails an "Peter Blechert"  gesendet, 
nur an users@de.libreoffice.org !!!


-- Originalnachricht --
Von: "Peter Blechert" 
An: "OoOHWHOoO" 
Gesendet: 08.01.2020 19:12:21
Betreff: Bitte keine Mails mehr!!!


Bitte keine Mails mehr!!!

Mit freundlichen Grüßen / Best regards


Peter Blechert

ARCION GmbH
Stuttgarter Str. 62
70736 Fellbach

Tel:  +49 711 957 69 46
Handy: +49 174 309 44 47
blech...@arcion.de
Am 08.01.2020 um 19:04 schrieb OoOHWHOoO:

Hallo Rainer,

diese Fehlermeldung sagt mir leider nicht wirklich viel, hat wohl was 
mit dem Speichern der Dateien zu tun.


Mich wundert es, dass es mit 2 Dateien funktioniert hat.

Waren alle 4 Dateien "Test_A.odt", "Test_B.odt", "Test_C.odt" und 
"Test_D.odt" geschlossen, als Du das Makro gestartet hast ?


Gruß
Hans-Werner

-- Originalnachricht --
Von: "Rainer"  
An: users@de.libreoffice.org
Cc: "OoOHWHOoO"  
Gesendet: 08.01.2020 18:44:41
Betreff: Re: [de-users] alte Dokumente unlesbar (Codierung?)


Hallo Hans-Werner,

Am Wed, 08 Jan 2020 16:28:41 +
schrieb OoOHWHOoO  
:


 "[...] Den nachfolgenden Abschnitt komplett so als Makro 
übernehmen,

 d.h. inkl. der darin enthaltenen Kommentare ? [...]"

 Ja, denn die Kommentare sind erlaubte BASIC-Makro-Kommentare. 
Alles,

 was auf ' folgt ist Kommentar.

Funktioniert leider nicht. Bei Versuchen in einem Testverzeichnis mit 
4

odt-Dateien erscheint folgende Meldung:

http://sambalada.de/Basic_Fehler.png

Bei einer Kontrolle zeigte sich anschließend, dass nur die Dateien B
und C bearbeitet waren, nicht aber A und D.

Viele Grüße

Rainer

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

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

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[OoOHWHOoO]

Hallo Rainer,

diese Fehlermeldung sagt mir leider nicht wirklich viel, hat wohl was 
mit dem Speichern der Dateien zu tun.


Mich wundert es, dass es mit 2 Dateien funktioniert hat.

Waren alle 4 Dateien "Test_A.odt", "Test_B.odt", "Test_C.odt" und 
"Test_D.odt" geschlossen, als Du das Makro gestartet hast ?


Gruß
Hans-Werner

-- Originalnachricht --
Von: "Rainer" 
An: users@de.libreoffice.org
Cc: "OoOHWHOoO" 
Gesendet: 08.01.2020 18:44:41
Betreff: Re: [de-users] alte Dokumente unlesbar (Codierung?)


Hallo Hans-Werner,

Am Wed, 08 Jan 2020 16:28:41 +
schrieb OoOHWHOoO :


 "[...] Den nachfolgenden Abschnitt komplett so als Makro übernehmen,
 d.h. inkl. der darin enthaltenen Kommentare ? [...]"

 Ja, denn die Kommentare sind erlaubte BASIC-Makro-Kommentare. Alles,
 was auf ' folgt ist Kommentar.


Funktioniert leider nicht. Bei Versuchen in einem Testverzeichnis mit 4
odt-Dateien erscheint folgende Meldung:

http://sambalada.de/Basic_Fehler.png

Bei einer Kontrolle zeigte sich anschließend, dass nur die Dateien B
und C bearbeitet waren, nicht aber A und D.

Viele Grüße

Rainer

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

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

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[Rainer]

Hallo Hans-Werner,

Am Wed, 08 Jan 2020 16:28:41 +
schrieb OoOHWHOoO :
> 
> "[...] Den nachfolgenden Abschnitt komplett so als Makro übernehmen,
> d.h. inkl. der darin enthaltenen Kommentare ? [...]"
> 
> Ja, denn die Kommentare sind erlaubte BASIC-Makro-Kommentare. Alles,
> was auf ' folgt ist Kommentar.
> 
Funktioniert leider nicht. Bei Versuchen in einem Testverzeichnis mit 4
odt-Dateien erscheint folgende Meldung:

http://sambalada.de/Basic_Fehler.png

Bei einer Kontrolle zeigte sich anschließend, dass nur die Dateien B
und C bearbeitet waren, nicht aber A und D.

Viele Grüße

Rainer

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

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[OoOHWHOoO]

Hallo Rainer,

da hat wohl WINDOWS mit seinem Zeichensatz zugeschlagen :-o ...

Die falsch umgesetzten Zeichen kommen nur in den Kommentarzeilen vor, 
nicht aber im Makro-Code, von daher wird sich das nicht auswirken auf 
das Makro.


ABER: Die paar Umlaute und das "ß" in den Kommentarzeilen zu korrigieren 
ist ja schnell gemacht und dann ist alles fehlerfrei in der Darstellung.


ALTERNATIV: Das Makro aus meiner vorherigen Mail kopieren, ist aber 
wegen ABER nicht wirklich notwendig.


"[...] Immer ? Ich wäre davon ausgegangen, dass es genügt, bei einem 
Testdurchlauf so zu verfahren. Wenn es funktioniert müsste doch alles 
gut sein, oder ? [...]"


Erstelle einfach ein BACKUP der zu bearbeitenden Dateien in einem 
anderen Verzeichnis. Wenn dann doch was "schief" geht, ist nichts 
verloren. Alles andere wäre leichtsinnig und unprofessionell !


"[...] Den nachfolgenden Abschnitt komplett so als Makro übernehmen, d.h. inkl. der 
darin enthaltenen Kommentare ? [...]"

Ja, denn die Kommentare sind erlaubte BASIC-Makro-Kommentare. Alles, was auf ' 
folgt ist Kommentar.

Gruß
Hans-Werner


-- Originalnachricht --
Von: "Rainer" 
An: users@de.libreoffice.org
Cc: "OoOHWHOoO" 
Gesendet: 08.01.2020 17:05:38
Betreff: Re: [de-users] alte Dokumente unlesbar (Codierung?)


Hallo Hans- Werner,

Am Wed, 08 Jan 2020 13:08:37 +
schrieb OoOHWHOoO :


 Ich habe jetzt mal Thomas' Marko-Idee aufgegriffen und so
 modifiziert, dass bei einmaligem Aufruf alle "odt"-Dateien im
 Verzeichnis bearbeitet werden.

 [1] Ich habe Dir das Makro auch an Deine private Email-Adresse
 gesendet mit Dateianhang "SuchenUndErsetzenInAllenDateien.txt". In
 der eMail (hier) gehen immer die Leerzeichen-Einrückungen und somit
 auch die Struktur verloren. Kopiere das Makro aus der Datei
 "SuchenUndErsetzenInAllenDateien.txt"bei Dir nach "Module1".


Das wird nicht gehen, denn die von Dir als PN übermittelte Textdatei
enthält einiges, was mir irgendwie bekannt vorkommt ;-) Beispiele:

- Datei mit dem Pfad-/Dateinamen 'dODT & aODT(iODT)' öffnen:
- Ãœber alle 'aSearch'-Zeichen:
- gefundenen 'aSearch'-Zeichen durch das zugehörige "aRepalce"-Zeichen
ersetzen
-  Das aktuell indizierte 'aODT'-Dokument schließen:


 [2] Lege ein Verzeichnis (beispielsweise ".../ODT/") an und trage den
 kompletten Pfad im Makro ein:

 dODT = "E:\TMP\ODT\"
 ersetzen durch
 dODT = "deine vollständige pfadangabe"

 [3] Zum Testen erstelle in Deinem Verzeichnis drei "odt"-Dateien
 (ODT_1.odt  + ODT_2.odt  + ODT_3.odt) mit jeweils dem Inhalt: ÄÖÜäöüß

 [4] Öffne eine neue Datei mit WRITER und starte das Makro.

 [5] Nach Ausführung des Makros sollte in den drei Dateien "ÄÖÜäöüß"
 ersetzt sein durch "AeOeUeaeoeuess".

 [6] Wenn Du in dem Makro

 aPV(0).value = True
 ersetzt durch
 aPV(0).value = False

 wird die jeweils bearbeitete Datei für Dich sichtbar geöffnet und Du
 kannst, wenn Du ganz schnell schaust, die Ersetzungen beobachten.
 Kann man mal bei den obigen drei Test-Dateien machen, ist aber bei
 der Verarbeitung vieler Dateien nicht empfehlenswert - verlangsamt
 nur die Verarbeitungsgeschwindigkeit.

 [8] 'aSearch' und 'aReplace' musst Du nur um die neuen
 'aSearch'-Zeichen und die zugehörigen 'aReplace'-Zeichen erweitern.
 Vorherige Einträge müssen nicht gelöscht werden, außer natürlich
 diesen Einträgen für den Makro-Test, da Du ja die Umlaute und "ß"
 nicht ersetzen willst:

 aSearch  = array("Ä" ,"Ö" ,"Ü" ,"ä" ,"ö" ,"ü" ,"ß" )
 aReplace = array("Ae","Oe","Ue","ae","oe","ue","ss")

 [7] Arbeite bitte IMMER NUR MIT KOPIEN DEINER DATEIEN, wenn Du dieses
 Makro anwendest !!!


Immer? Ich wäre davon ausgegangen, dass es genügt, bei einem
Testdurchlauf so zu verfahren. Wenn es funktioniert müsste doch alles
gut sein, oder?

Den nachfolgenden Abschnitt komplett so als Makro übernehmen, d.h. inkl.
der darin enthaltenen Kommentare?


Sub SuchenUndErsetzenInAllenDateien

 'D E K L A R A T I O N E N

   Dim oDocument  as Object
   Dim oReplace   as Object  ' object
   Dim aDummy()   as Variant ' array
   Dim aReplace() as Variant ' array
   Dim aSearch()  as Variant ' array
   Dim iSearchas Integer ' index
   Dim aODT() as Variant ' array
   Dim dODT   as String  ' directory
   Dim fODT   as String  ' file
   Dim iODT   as Integer ' index

 'V O R B E L E G U N G E N

   dODT = "E:\TMP\ODT\"

   aSearch  = array("Ä" ,"Ö" ,"Ü" ,"ä" ,"ö" ,"ü" ,"ß" )
   aReplace = array("Ae","Oe","Ue","ae","oe","ue","ss")

   Dim aPV(0) as New com.sun.star.beans.PropertyValue
   aPV(0).name  = "Hidden"
   aPV(0).value = True

 'D A T E I N A M E N   E I N L E S E N

 'Ersten Dateinamen aus dem Verzeichnis 'dODT' in das Array 'aODT'
 einlesen:
   fODT = Dir(dODT & "*.odt",0)
   If (fODT = "") Then
  MsgBox ("Keine Dateien im Verzeichnis " & Chr(10) &_
  dODT& Chr(10) &_
  "gefunden !")
  End
   

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[Rainer]

Hallo Hans- Werner,

Am Wed, 08 Jan 2020 13:08:37 +
schrieb OoOHWHOoO :
> 
> Ich habe jetzt mal Thomas' Marko-Idee aufgegriffen und so
> modifiziert, dass bei einmaligem Aufruf alle "odt"-Dateien im
> Verzeichnis bearbeitet werden.
> 
> [1] Ich habe Dir das Makro auch an Deine private Email-Adresse
> gesendet mit Dateianhang "SuchenUndErsetzenInAllenDateien.txt". In
> der eMail (hier) gehen immer die Leerzeichen-Einrückungen und somit
> auch die Struktur verloren. Kopiere das Makro aus der Datei 
> "SuchenUndErsetzenInAllenDateien.txt"bei Dir nach "Module1".
> 
Das wird nicht gehen, denn die von Dir als PN übermittelte Textdatei
enthält einiges, was mir irgendwie bekannt vorkommt ;-) Beispiele:

- Datei mit dem Pfad-/Dateinamen 'dODT & aODT(iODT)' öffnen:   
- Ãœber alle 'aSearch'-Zeichen:
- gefundenen 'aSearch'-Zeichen durch das zugehörige "aRepalce"-Zeichen
ersetzen
-  Das aktuell indizierte 'aODT'-Dokument schließen:

> [2] Lege ein Verzeichnis (beispielsweise ".../ODT/") an und trage den 
> kompletten Pfad im Makro ein:
> 
> dODT = "E:\TMP\ODT\"
> ersetzen durch
> dODT = "deine vollständige pfadangabe"
> 
> [3] Zum Testen erstelle in Deinem Verzeichnis drei "odt"-Dateien 
> (ODT_1.odt  + ODT_2.odt  + ODT_3.odt) mit jeweils dem Inhalt: ÄÖÜäöüß
> 
> [4] Öffne eine neue Datei mit WRITER und starte das Makro.
> 
> [5] Nach Ausführung des Makros sollte in den drei Dateien "ÄÖÜäöüß" 
> ersetzt sein durch "AeOeUeaeoeuess".
> 
> [6] Wenn Du in dem Makro
> 
> aPV(0).value = True
> ersetzt durch
> aPV(0).value = False
> 
> wird die jeweils bearbeitete Datei für Dich sichtbar geöffnet und Du 
> kannst, wenn Du ganz schnell schaust, die Ersetzungen beobachten.
> Kann man mal bei den obigen drei Test-Dateien machen, ist aber bei
> der Verarbeitung vieler Dateien nicht empfehlenswert - verlangsamt
> nur die Verarbeitungsgeschwindigkeit.
> 
> [8] 'aSearch' und 'aReplace' musst Du nur um die neuen
> 'aSearch'-Zeichen und die zugehörigen 'aReplace'-Zeichen erweitern.
> Vorherige Einträge müssen nicht gelöscht werden, außer natürlich
> diesen Einträgen für den Makro-Test, da Du ja die Umlaute und "ß"
> nicht ersetzen willst:
> 
> aSearch  = array("Ä" ,"Ö" ,"Ü" ,"ä" ,"ö" ,"ü" ,"ß" )
> aReplace = array("Ae","Oe","Ue","ae","oe","ue","ss")
> 
> [7] Arbeite bitte IMMER NUR MIT KOPIEN DEINER DATEIEN, wenn Du dieses 
> Makro anwendest !!!
> 
Immer? Ich wäre davon ausgegangen, dass es genügt, bei einem
Testdurchlauf so zu verfahren. Wenn es funktioniert müsste doch alles
gut sein, oder?

Den nachfolgenden Abschnitt komplett so als Makro übernehmen, d.h. inkl.
der darin enthaltenen Kommentare?
> 
>Sub SuchenUndErsetzenInAllenDateien
> 
> 'D E K L A R A T I O N E N
> 
>   Dim oDocument  as Object
>   Dim oReplace   as Object  ' object
>   Dim aDummy()   as Variant ' array
>   Dim aReplace() as Variant ' array
>   Dim aSearch()  as Variant ' array
>   Dim iSearchas Integer ' index
>   Dim aODT() as Variant ' array
>   Dim dODT   as String  ' directory
>   Dim fODT   as String  ' file
>   Dim iODT   as Integer ' index
> 
> 'V O R B E L E G U N G E N
> 
>   dODT = "E:\TMP\ODT\"
> 
>   aSearch  = array("Ä" ,"Ö" ,"Ü" ,"ä" ,"ö" ,"ü" ,"ß" )
>   aReplace = array("Ae","Oe","Ue","ae","oe","ue","ss")
> 
>   Dim aPV(0) as New com.sun.star.beans.PropertyValue
>   aPV(0).name  = "Hidden"
>   aPV(0).value = True
> 
> 'D A T E I N A M E N   E I N L E S E N
> 
> 'Ersten Dateinamen aus dem Verzeichnis 'dODT' in das Array 'aODT' 
> einlesen:
>   fODT = Dir(dODT & "*.odt",0)
>   If (fODT = "") Then
>  MsgBox ("Keine Dateien im Verzeichnis " & Chr(10) &_
>  dODT& Chr(10) &_
>  "gefunden !")
>  End
>   EndIf
>   ReDim Preserve aODT(0)
>   aODT(0) = Dir(dODT & "*.odt",0)
>   iODT = 0
> 'Alle weiteren Dateinamen aus dem Verzeichnis 'dODT' in das Array 
> 'aODT' einlesen:
>   Do
>  fODT = Dir
>  If ( fODT = "" ) Then
> Exit Do
>  EndIf
>  iODT = iODT + 1
>  ReDim Preserve aODT(iODT)
>  aODT(iODT) = fODT
>   Loop
> 
> 'Z E I C H E N   S U C H E N   U N D   E R S E T Z E N
> 
> 'Über alle Dateinamen in dem Array 'aODT':
>   For iODT = 0 To Ubound(aODT) Step 1
> 
> '   Datei mit dem Pfad-/Dateinamen 'dODT & aODT(iODT)' öffnen:
>  oDocument =
> StarDesktop.loadComponentFromURL(ConvertToURL(dODT &
> aODT(iODT)),"_blank",0,aPV())
> 
> '   Über alle 'aSearch'-Zeichen:
>  For iSearch = 0 to Ubound(aSearch) Step 1
> '  Das aktuell indizierte 'aSearch'-Zeichen in der aktuell 
> indizierten Datei suchen und alle
> '  gefundenen 'aSearch'-Zeichen durch das zugehörige 
> "aRepalce"-Zeichen ersetzen:
> oReplace = oDocument.CreateReplaceDescriptor
> With oReplace
>.SetSearchString(aSearch(iSearch))
> 

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[Rainer]

Hallo Robert,

Am Wed, 8 Jan 2020 16:39:52 +0100
schrieb Robert Großkopf :
> > 
> > http://sambalada.de/SL_Makros.png  
> 
> Das sieht bei mir etwas anders aus. Bei mir öffnet sich auf einen
> Klick auf das führende Zeichen ">" (bei Dir "+") der komplette
> Verzeichnisbaum von "Meine Makros". Und wenn ich dann das Makro
> anklicke, das ich haben will, dann sind die Pfeile auch aktiv.
> > 
Wie gesagt: Ein Klick auf "+" bewirkt nichts (keine Reaktion).

> > ist zu sehen, dass die Pfeile ausgegraut sind und nichts geht. Hat
> > eine Weile gedauert, bis ich herausgefunden hatte, dass sich der
> > Zustand nicht durch einen Klick auf das vorangestellte "+" ändern
> > lässt, sondern durch einen Doppelklick auf "Zeichen".   
> 
> "Zeichen" sehe ich bei Dir im Screenshot nicht. 

Stimmt. Ich wahl wohl im Tran und habe versehentlich "Zeichen"
geschrieben, obwohl es hätte "Meine Makros" heißen müssen ;-)
> 
> Funktioniert jetzt aber doch, oder habe ich das falsch verstanden?
> 
Ja, funktioniert bestens.

Viele Grüße

Rainer

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

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[Robert Großkopf]

Hallo Rainer,
> 
> http://sambalada.de/SL_Makros.png

Das sieht bei mir etwas anders aus. Bei mir öffnet sich auf einen Klick
auf das führende Zeichen ">" (bei Dir "+") der komplette Verzeichnisbaum
von "Meine Makros". Und wenn ich dann das Makro anklicke, das ich haben
will, dann sind die Pfeile auch aktiv.
> 
> ist zu sehen, dass die Pfeile ausgegraut sind und nichts geht. Hat eine
> Weile gedauert, bis ich herausgefunden hatte, dass sich der Zustand
> nicht durch einen Klick auf das vorangestellte "+" ändern lässt,
> sondern durch einen Doppelklick auf "Zeichen". 

"Zeichen" sehe ich bei Dir im Screenshot nicht. Ich hätte dort direkt
"+" betätigt.

Funktioniert jetzt aber doch, oder habe ich das falsch verstanden?

Gruß

Robert
-- 
Homepage: https://www.familiegrosskopf.de/robert


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

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[OoOHWHOoO]

Hallo Rainer,

das kann ich schon verstehen. Es war eine schnelle Lösung mit PERL.

Ich habe jetzt mal Thomas' Marko-Idee aufgegriffen und so modifiziert, 
dass bei einmaligem Aufruf alle "odt"-Dateien im Verzeichnis bearbeitet 
werden.


[1] Ich habe Dir das Makro auch an Deine private Email-Adresse gesendet 
mit Dateianhang "SuchenUndErsetzenInAllenDateien.txt". In der eMail 
(hier) gehen immer die Leerzeichen-Einrückungen und somit auch die 
Struktur verloren. Kopiere das Makro aus der Datei 
"SuchenUndErsetzenInAllenDateien.txt"bei Dir nach "Module1".


[2] Lege ein Verzeichnis (beispielsweise ".../ODT/") an und trage den 
kompletten Pfad im Makro ein:


dODT = "E:\TMP\ODT\"
ersetzen durch
dODT = "deine vollständige pfadangabe"

[3] Zum Testen erstelle in Deinem Verzeichnis drei "odt"-Dateien 
(ODT_1.odt  + ODT_2.odt  + ODT_3.odt) mit jeweils dem Inhalt: ÄÖÜäöüß


[4] Öffne eine neue Datei mit WRITER und starte das Makro.

[5] Nach Ausführung des Makros sollte in den drei Dateien "ÄÖÜäöüß" 
ersetzt sein durch "AeOeUeaeoeuess".


[6] Wenn Du in dem Makro

aPV(0).value = True
ersetzt durch
aPV(0).value = False

wird die jeweils bearbeitete Datei für Dich sichtbar geöffnet und Du 
kannst, wenn Du ganz schnell schaust, die Ersetzungen beobachten. Kann 
man mal bei den obigen drei Test-Dateien machen, ist aber bei der 
Verarbeitung vieler Dateien nicht empfehlenswert - verlangsamt nur die 
Verarbeitungsgeschwindigkeit.


[8] 'aSearch' und 'aReplace' musst Du nur um die neuen 'aSearch'-Zeichen 
und die zugehörigen 'aReplace'-Zeichen erweitern. Vorherige Einträge 
müssen nicht gelöscht werden, außer natürlich diesen Einträgen für den 
Makro-Test, da Du ja die Umlaute und "ß" nicht ersetzen willst:


aSearch  = array("Ä" ,"Ö" ,"Ü" ,"ä" ,"ö" ,"ü" ,"ß" )
aReplace = array("Ae","Oe","Ue","ae","oe","ue","ss")

[7] Arbeite bitte IMMER NUR MIT KOPIEN DEINER DATEIEN, wenn Du dieses 
Makro anwendest !!!



Gutes Gelingen,
Grüße
Hans-Werner ;-))


  Sub SuchenUndErsetzenInAllenDateien

'D E K L A R A T I O N E N

 Dim oDocument  as Object
 Dim oReplace   as Object  ' object
 Dim aDummy()   as Variant ' array
 Dim aReplace() as Variant ' array
 Dim aSearch()  as Variant ' array
 Dim iSearchas Integer ' index
 Dim aODT() as Variant ' array
 Dim dODT   as String  ' directory
 Dim fODT   as String  ' file
 Dim iODT   as Integer ' index

'V O R B E L E G U N G E N

 dODT = "E:\TMP\ODT\"

 aSearch  = array("Ä" ,"Ö" ,"Ü" ,"ä" ,"ö" ,"ü" ,"ß" )
 aReplace = array("Ae","Oe","Ue","ae","oe","ue","ss")

 Dim aPV(0) as New com.sun.star.beans.PropertyValue
 aPV(0).name  = "Hidden"
 aPV(0).value = True

'D A T E I N A M E N   E I N L E S E N

'Ersten Dateinamen aus dem Verzeichnis 'dODT' in das Array 'aODT' 
einlesen:

 fODT = Dir(dODT & "*.odt",0)
 If (fODT = "") Then
MsgBox ("Keine Dateien im Verzeichnis " & Chr(10) &_
dODT& Chr(10) &_
"gefunden !")
End
 EndIf
 ReDim Preserve aODT(0)
 aODT(0) = Dir(dODT & "*.odt",0)
 iODT = 0
'Alle weiteren Dateinamen aus dem Verzeichnis 'dODT' in das Array 
'aODT' einlesen:

 Do
fODT = Dir
If ( fODT = "" ) Then
   Exit Do
EndIf
iODT = iODT + 1
ReDim Preserve aODT(iODT)
aODT(iODT) = fODT
 Loop

'Z E I C H E N   S U C H E N   U N D   E R S E T Z E N

'Über alle Dateinamen in dem Array 'aODT':
 For iODT = 0 To Ubound(aODT) Step 1

'   Datei mit dem Pfad-/Dateinamen 'dODT & aODT(iODT)' öffnen:
oDocument = StarDesktop.loadComponentFromURL(ConvertToURL(dODT & 
aODT(iODT)),"_blank",0,aPV())


'   Über alle 'aSearch'-Zeichen:
For iSearch = 0 to Ubound(aSearch) Step 1
'  Das aktuell indizierte 'aSearch'-Zeichen in der aktuell 
indizierten Datei suchen und alle
'  gefundenen 'aSearch'-Zeichen durch das zugehörige 
"aRepalce"-Zeichen ersetzen:

   oReplace = oDocument.CreateReplaceDescriptor
   With oReplace
  .SetSearchString(aSearch(iSearch))
  .SetReplaceString(aReplace(iSearch))
  .SearchCaseSensitive = True
   End With
   oDocument.replaceAll(oReplace)
Next

'   Das aktuell indizierte 'aODT'-Dokument speichern:
oDocument.StoreAsURL(ConvertToURL(dODT & aODT(iODT)),aDummy())
'   Das aktuell indizierte 'aODT'-Dokument schließen:
oDocument.Close(False)

  Next

  End Sub


-- Originalnachricht --
Von: "Rainer" 
An: users@de.libreoffice.org
Cc: "OoOHWHOoO" 
Gesendet: 08.01.2020 10:19:57
Betreff: Re: [de-users] alte Dokumente unlesbar (Codierung?)


Hallo Hans-Werner,

wenn ich mir Deine Vorschläge und das hier ansehe:

https://wiki.ubuntuusers.de/Perl/

muss ich wohl passen. Übersteigt meine Kompetenz. Einzig das hier wäre
für mich vermutlich ein Weg:

Am Mon, 06 Jan 2020 16:13:16 

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[Rainer]

Hallo Hans-Werner,

wenn ich mir Deine Vorschläge und das hier ansehe:

https://wiki.ubuntuusers.de/Perl/

muss ich wohl passen. Übersteigt meine Kompetenz. Einzig das hier wäre
für mich vermutlich ein Weg:

Am Mon, 06 Jan 2020 16:13:16 +
schrieb OoOHWHOoO :
> 
> [5] Alternativ kann man das PERL-Programm auch durch ein
> entsprechendes BASH-Skript ersetzen. Kann ich leider nicht anbieten,
> da meine Systemumgebung "Windows 10" ist.
> 
Vielleicht weiß ein Linuxer hier, wie das Skript aussehen müsste
(eines, das sich für die Stapelverarbeitung idealerweise des nun
vorhandenen Makros bedient)?

Viele Grüße

Rainer

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

Re: [de-users] alte Dokumente unlesbar (Codierung?)

[Rainer]

Hallo Robert,

Am Mon, 6 Jan 2020 18:58:46 +0100
schrieb Robert Großkopf :
> 
> zuerst einmal diesen Inhalt von Thomas kopieren:
> 
Habe ich gemacht und nur diese Zeile:

> SUB MySearchReplace

vorläufig in "SUB Zeichen" umbenannt.
> 
> Das Makro kannst Du später ergänzen. In dem Arraypaar stehen jetzt nur
> die Zuordnungen § → ß und š → ö. Da kannst Du weitere Zuordnungen
> ergänzen, indem Du immer ein Komma setzt und dann den neuen Wert
> eingibst - auch später noch, wenn das Makro längst abgespeichert ist.
> 
Das ist gut. Deshalb habe ich es zunächst versuchsweise bei den beiden
Arraypaaren belassen.

> Öffne nach dem Kopieren
> Extras > Makros > Makros verwalten > LibreOffice Basic
> Unter Meine Makros > Standard > Module1 kannst Du über Bearbeiten den
> Editor öffnen. 
> Hast Du den Writer geöffnet, so geht auch
> Extras > Makros > Makros bearbeiten
> Dann landest Du direkt in dem Ordner "Standard".
> 
> In das dortige Modul fügst Du das obige Makro ein. 

Hat geklappt:

http://sambalada.de/LO_Basic_Makros.png

> Würdest Du jetzt von einem der "befallenen" Dateien das Makro über
> Extras > Makro ausführen starten, so würden eben nur die 2 bisher
> verzeichneten Paare ausgetauscht.
> 
Hat bei meinem Test funktioniert. 

> Extras > Symbolleisten > Kategorie "Makros"
> kannst Du das Makro aussuchen und über den Pfeil nach rechts der
> Symbolleiste "Standard" hinzufügen. 

Hier: 

http://sambalada.de/SL_Makros.png

ist zu sehen, dass die Pfeile ausgegraut sind und nichts geht. Hat eine
Weile gedauert, bis ich herausgefunden hatte, dass sich der Zustand
nicht durch einen Klick auf das vorangestellte "+" ändern lässt,
sondern durch einen Doppelklick auf "Zeichen". Dadurch sind nicht nur
die Makros zu sehen, sondern werden auch die Pfeile in der Mitte
aktiviert, und eine Schaltfläche lässt sich wie gewünscht einrichten.

Der Rest ist Such- und Fleißarbeit. Die bekannten Arraypaare übersetze
ich später und anschließend immer die, auf die ich im Laufe der Zeit
stoße.

Vielen Dank und viele Grüße

Rainer

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