WORD 2000 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 2000
ber

 "Extras / Makro / Makros: 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 Textumw2()
Rem Makro erstellt 1999 von Juergen Hinrichs schul16@gmx.net

WordBasic.StartOfDocument
WordBasic.EditReplace Find:="=E4", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=C4", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=fc", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=DC", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=f6", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=D6", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=df", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

Rem OPTIONAL, NEU

WordBasic.EditReplace Find:="=09", Replace:="^t", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=20", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=26", Replace:="&", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=2B", Replace:="+", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=2C", Replace:=",", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=2D", Replace:="-", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=2E", Replace:=".", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=2F", Replace:="\", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=3A", Replace:=":", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=3D", Replace:="=", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=3F", Replace:="?", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=5F", Replace:="_", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=7C", Replace:="|", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=96", Replace:="-", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=5B", Replace:="[", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=5D", Replace:="]", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=A9", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=80", Replace:="Euro", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

Rem Unklar

WordBasic.EditReplace Find:="=93", Replace:=Chr$(147), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=84", Replace:=Chr$(147), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=94", Replace:=Chr$(148), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="=B7", Replace:="^p-", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="=A7", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1


Rem Urls

WordBasic.StartOfDocument

WordBasic.EditReplace Find:="%E4", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%C4", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%fc", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%DC", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%f6", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%D6", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%df", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

Rem Urls OPTIONAL, NEU


WordBasic.EditReplace Find:="%09", Replace:="^t", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%20", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%26", Replace:="&", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%2B", Replace:="+", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%2C", Replace:=",", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%2D", Replace:="-", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%2E", Replace:=".", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%2F", Replace:="\", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%3A", Replace:=":", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%3D", Replace:="=", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%3F", Replace:="?", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%5F", Replace:="_", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%7C", Replace:="|", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%96", Replace:="?", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%5B", Replace:="[", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%5D", Replace:="]", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="%A9", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1


WordBasic.EditReplace Find:="%22", Replace:=Chr$(34), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1


Rem Extras

WordBasic.EditReplace Find:="=?iso-8859-1?Q?", Replace:=Chr$(34), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="?=", Replace:=Chr$(34), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=Chr$(34) + Chr$(34), Replace:=Chr$(34), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

Rem OPTIONAL 2

WordBasic.EditReplace Find:="=^p", Replace:=" ^p", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="^p^p", Replace:="^p", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

Rem NEU 1

WordBasic.EditReplace Find:="ü", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="Ü", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="ä", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + Chr$(34), Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="ö", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="Ö", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="ß", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="§", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="®", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1


Rem -- ChrW(128) statt Chr$(128)

WordBasic.EditReplace Find:="" + ChrW(128) + ChrW(157), Replace:=Chr$(148), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="" + ChrW(128) + "", Replace:=Chr$(132), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + ChrW(128) + "", Replace:=Chr$(147), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="" + Chr$(63) + Chr$(63), Replace:=Chr$(132), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + Chr$(63) + "", Replace:=Chr$(148), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="" + ChrW(128) + ChrW(158), Replace:=Chr$(132), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + ChrW(128) + "", Replace:=Chr$(148), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

' WordBasic.EditReplace Find:="€", Replace:=" Euro", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="€", Replace:=Chr$(128), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + Chr$(128) + Chr$(147), Replace:=Chr$(151), Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="" + Chr$(34), Replace:=" - ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + ChrW(128) + ChrW(8220), Replace:=" - ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + Chr$(128) + "", Replace:=" " + Chr$(149) + " ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + Chr$(128) + "", Replace:=Chr$(133), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="" + ChrW(128) + "", Replace:=Chr$(130), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + ChrW(128) + "", Replace:=Chr$(146), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="" + Chr$(128) + "", Replace:=Chr$(147), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + Chr$(128) + Chr$(158), Replace:=Chr$(132), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + Chr$(128) + "", Replace:=Chr$(146), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

' Reihenfolge!
WordBasic.EditReplace Find:="", Replace:=Chr$(233), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="" + Chr$(128) + "", Replace:=Chr$(132), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="" + Chr$(128) + "", Replace:=Chr$(146), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1


Rem NEU 2

WordBasic.EditReplace Find:="=E2Euro=9E", Replace:=Chr$(34), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="=E2Euro=9C", Replace:=Chr$(34), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:=Chr$(34) + Chr$(34), Replace:=Chr$(34), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1


WordBasic.EditReplace Find:="C3=A4", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="=C3=B6", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="=C3=BC", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="=C3=9C", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="=C3=9F", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="=E9", Replace:=Chr$(233), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1


REM EINZELNE ANS ENDE EINGEFGT

WordBasic.EditReplace Find:="", Replace:=Chr$(160), Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="ő", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="ű", Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1


REM SETZT AN JEDE ENDZEILE MIT PUNKTUATION EINEN ABSATZ

WordBasic.EditReplace Find:=" ^p", Replace:="^p", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:=":^p", Replace:=": ^p^p", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:=")^p", Replace:=") ^p^p", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:=">^p", Replace:="> ^p^p", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:=Chr$(34) + "^p", Replace:=Chr$(34) + " ^p^p", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:=".^p", Replace:=". ^p^p", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="!^p", Replace:="! ^p^p", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="?^p", Replace:="? ^p^p", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=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 2000 integrieren:

 "Extras / Anpassen / Befehle / Kategorien: Makros"

Makro auswhlen und durch Ziehen mit der Maus in ein Men einfgen


oder ber "Tastatur" mit einer Tastenkombination belegen, 


Alternativ das Makro direkt ber

 "Extras / Makro / Ausfhren" 	

auswhlen und ausfhren lassen.




Einbau und Betrieb des Makros geschieht auf eigenes Risiko.

(c) 1999 Jrgen Hinrichs // Ergnzt 2009




