WORD 6.0 Makro: Textumw2

Autor:
Jrgen Hinrichs
schul16@gmx.net
http://mitglied.lycos.de/erleuchtet/index-g.htm
Infos und Tips fr Word, Windows, Access, Excel, Internet

Dieses Makro unterliegt dem Urheberrecht und bleibt Eigentum des Autors.
Es ist Freeware und darf unter Nennung des Autors und der Herkunft
unentgeltlich weitergegeben werden.

Es darf weder verkauft noch verliehen noch anderweitig kommerziell
vertrieben werden, auch nicht in genderter oder erweiterter Form.

Jedwede Haftung wird ausgeschlossen.
Weitere Makros auf Anfrage.


###############

Makro Textumw2

Wandelt deutsche Umlaute und "" in importierten e-mails um. 
Schreibt einige maskierte Umlaute und Sonderzeichen in dekodierten e-mail - Texten in Klartext um. 
Dient zum Korrigieren von falsch dekodierten e-mails.
Kann beliebig erweitert werden.

###############


Den unten stehenden Makro- Code kopieren und in MS WORD 6.0
ber

 "Extras / Makro / [Makroname]: Erstellen"

unter einem ausgewhlten Namen vollstndig in das sich ffnende Editor- Fenster einfgen




CODE AB HIER KOPIEREN (inklusive der Anfangs- und Endzeilen mit "Sub") 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub MAIN
REM Makro erstellt 1999 von Juergen Hinrichs schul16@gmx.net

BeginnDokument

BearbeitenErsetzen .Suchen = "=E4", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=C4", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=fc", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=DC", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=f6", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=D6", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=df", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=^a", .Ersetzen = " ^a", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1


REM Reihenfolge!

BearbeitenErsetzen .Suchen = "" + Chr$(182), .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "é", .Ersetzen = Chr$(233), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "‘", .Ersetzen = Chr$(132), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "’", .Ersetzen = Chr$(146), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1



REM OPTIONAL, NEU

BearbeitenErsetzen .Suchen = "=09", .Ersetzen = "^t", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=20", .Ersetzen = " ", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=26", .Ersetzen = "&", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=2B", .Ersetzen = "+", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=2C", .Ersetzen = ",", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=2D", .Ersetzen = "-", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=2E", .Ersetzen = ".", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=2F", .Ersetzen = "\", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=3A", .Ersetzen = ":", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=3D", .Ersetzen = "=", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=3F", .Ersetzen = "?", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=5F", .Ersetzen = "_", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=7C", .Ersetzen = "|", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=96", .Ersetzen = "-", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=5B", .Ersetzen = "[", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=5D", .Ersetzen = "]", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=A9", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=80", .Ersetzen = "Euro", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

REM Unklar

BearbeitenErsetzen .Suchen = "=93", .Ersetzen = Chr$(147), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=84", .Ersetzen = Chr$(147), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=94", .Ersetzen = Chr$(148), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=B7", .Ersetzen = "^a-", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "=A7", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1


BearbeitenErsetzen .Suchen = "=?iso-8859-1?Q?", .Ersetzen = Chr$(34), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "?=", .Ersetzen = Chr$(34), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = Chr$(34) + Chr$(34), .Ersetzen = Chr$(34), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1


REM URLS

BeginnDokument

BearbeitenErsetzen .Suchen = "%E4", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%C4", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%fc", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%DC", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%f6", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%D6", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%df", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1


REM URLS OPTIONAL, NEU

BearbeitenErsetzen .Suchen = "%09", .Ersetzen = "^t", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%20", .Ersetzen = " ", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%26", .Ersetzen = "&", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%2B", .Ersetzen = "+", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%2C", .Ersetzen = ",", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%2D", .Ersetzen = "-", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%2E", .Ersetzen = ".", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%2F", .Ersetzen = "\", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%3A", .Ersetzen = ":", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%3D", .Ersetzen = "=", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%3F", .Ersetzen = "?", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%5F", .Ersetzen = "_", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%7C", .Ersetzen = "|", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%96", .Ersetzen = "-", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%5B", .Ersetzen = "[", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%5D", .Ersetzen = "]", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "%A9", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "%22", .Ersetzen = Chr$(34), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1


REM OPTIONAL 2

BearbeitenErsetzen .Suchen = "^a^a", .Ersetzen = "^a", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1


REM NEU 1

BearbeitenErsetzen .Suchen = "ü", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "Ü", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "ä", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "" + Chr$(34), .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "Ö", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "ß", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "É", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "§", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "®", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "„", .Ersetzen = Chr$(132), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "" + Chr$(157), .Ersetzen = Chr$(148), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "“", .Ersetzen = Chr$(148), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

REM BearbeitenErsetzen .Suchen = "", .Ersetzen = " Euro", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "", .Ersetzen = " ", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "", .Ersetzen = " ", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "" + Chr$(34), .Ersetzen = Chr$(151), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "" + Chr$(34), .Ersetzen = " - ", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "•", .Ersetzen = Chr$(149), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "…", .Ersetzen = Chr$(133), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "„", .Ersetzen = Chr$(149), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "‚", .Ersetzen = Chr$(130), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1


REM NEU 2

BearbeitenErsetzen .Suchen = "=E2Euro=9E", .Ersetzen = Chr$(34), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1
BearbeitenErsetzen .Suchen = "=E2Euro=9C", .Ersetzen = Chr$(34), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = Chr$(34) + Chr$(34), .Ersetzen = Chr$(34), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1


BearbeitenErsetzen .Suchen = "C3=A4", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "=C3=B6", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "=C3=BC", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "=C3=9C", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "=C3=9F", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "=E9", .Ersetzen = Chr$(233), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1



REM EINZELNE ANS ENDE EINGEFGT

BearbeitenErsetzen .Suchen = "", .Ersetzen = Chr$(160), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "ő", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "ű", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1


REM SETZT AN JEDE ENDZEILE MIT PUNKTUATION EINEN ABSATZ

BearbeitenErsetzen .Suchen = " ^a", .Ersetzen = "^a", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = ":^a", .Ersetzen = ": ^a^a", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = ")^a", .Ersetzen = ") ^a^a", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = ">^a", .Ersetzen = "> ^a^a", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = Chr$(34) + "^a", .Ersetzen = Chr$(34) + " ^a^a", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = ".^a", .Ersetzen = ". ^a^a", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "!^a", .Ersetzen = "! ^a^a", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "?^a", .Ersetzen = "? ^a^a", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1


End Sub


+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Einige Makros sind so umfangreich, da sie bei greren Texten und geringem Arbeitsspeicher die Fhigkeit von MS WORD berschreiten sich zurckliegende Schritte zu merken. Das beeintrchtigt jedoch nicht die Funktion des Makros. In diesem Fall die Meldung: "Unzureichender Arbeitspeicher. Sie knnen diesen Vorgang nicht rckgngig machen. Fortfahren?" mit J (Ja), Eingabe- oder der Leertaste besttigen. Um dieses zu umgehen knnen grere Texte abschnittsweise in einem separaten Fenster bearbeiten werden.



Neue Makros in MS WORD 6.0 integrieren:

 "Extras / Anpassen / Mens / Kategorien: Makros"

Makro auswhlen und in ein Men einfgen


oder ber "Tastatur" mit einer Tastenkombination belegen, 


Alternativ das Makro direkt ber

 "Extras / Makro / [Makroname]: Ausfhren" 	

auswhlen und ausfhren lassen.




Einbau und Betrieb des Makros geschieht auf eigenes Risiko.

(c) 1999 Jrgen Hinrichs // Ergnzt 2009
						
