Public Sub MAIN() If ActiveWindow.View.SplitSpecial = wdPaneNone Then ActiveWindow.ActivePane.View.Type = wdNormalView Else ActiveWindow.View.Type = wdNormalView End If 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:="%21", Replace:="!", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="%27", Replace:="'", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="%28", Replace:="(", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="%29", Replace:=")", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="%25", Replace:="%", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="%c3%a1", Replace:="á", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="%c2%a6", 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:="ä", 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 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) für das Euro-Zeichen WordBasic.EditReplace Find:="›", Replace:=">", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="‹", Replace:="<", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="â" + ChrW(128) + "º", Replace:=">", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="â" + ChrW(128) + "¹", Replace:="<", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 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$(133), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="…", 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:="é", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 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:="Ã" + Chr$(182) + "˜", Replace:="ö", Direction:=0, MatchCase:=0, 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 WordBasic.EditReplace Find:="›", Replace:=">", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="‹", Replace:="<", 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:="„", Replace:=Chr$(132), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="“", Replace:=Chr$(147), 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 UPDATE 09 FF 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:="%23", Replace:="#", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="%0B", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="amp;", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="%0D", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="%7E", Replace:="~", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="ä", Replace:="ä", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="ö", Replace:="ö", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="ü", Replace:="ü", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 Rem EINZELNE ANS ENDE EINGEFÜGT 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:="%A9", Replace:="©", 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:="Å‘", 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:="%C3%A9", Replace:="é", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:="ö‰", Replace:="é", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:=Chr$(182), Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:=Chr$(172), Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1 WordBasic.EditReplace Find:=Chr$(133), Replace:="...", Direction:=0, MatchCase:=0, 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