Sub ChangeUmlaut
        'Werner Roth <tiberius@uni-paderborn.de>
        'Tauscht alle Umlaute in Umschrift
        'SUBs:
        '       zSubCUChangeBuchstabe tauscht Buchsteben (achtet auf Groß-Kleinschreibung)
        '       zSubCUChangeZeichen     tauscht Zeichen
        IF MsgBox("Sollen wirklich alle Umlaute "+chr(13)+"in Umschrift getauscht werden?" ,1 ,"Verwandle Text in Mail")=1 then
                ActiveWindow.ActionStart 'sichtbare Formatierung des Dokumentes aus
                'Erster Parameter muß ein Großbuchstabe sein!
                zSubCUChangeBuchstabe "Ä","Ae","ae"
                zSubCUChangeBuchstabe "Ö","Oe","oe"
                zSubCUChangeBuchstabe "Ü","Ue","ue"
                zSubCUChangeZeichen "ß", "ss"
                zSubCUChangeZeichen "„", chr(34) 'Anführungszeichen unten
                zSubCUChangeZeichen "“", chr(34) 'Anführungszeichen oben 
                ActiveWindow.ActionEnd 'sichtbare Formatierung des Dokumentes an
                ActiveWindow.Refresh() 'muß bei kleinen Texten sein?
        Endif
End Sub

Sub zSubCUChangeBuchstabe (cUmlaut, cGross, cKlein)
        'SUB von ChangeUmlaut
        Selection.Text.GoToStartOfDoc 'Starte ganz oben
        ActiveWindow.Search cUmlaut   'suche den auszutauschenden Buchstaben
        a$ = Selection.Text.Value
        Do While len(a$) <> 0                     'Was gefunden?
                If a$ = cUmlaut then                  'sind die Buchstaben genau gleich "Ä"<>"ä"?
                        Selection.Text.Insert( cGross )   'Dann die Gross-Maske
                Else                                  'sonst
                        Selection.Text.Insert( cKlein )   'Kleinbuchstben
                Endif                           
                ActiveWindow.RepeatSearch             'Suche weiter
                a$ = Selection.Text.Value
        Loop
END Sub 

Sub zSubCUChangeZeichen (cUmlaut, cAender)
        'SUB von ChangeUmlaut
        zSubCUChangeBuchstabe (cUmlaut, cAender, cAender)
End Sub