Winword 6.0

Tip: Wer eine Mail über das Internet versendet, sollte möglichst keine Umlaute verwenden. Sie werden nicht korrekt übertragen und erscheinen beim Empfänger als Sonderzeichen; die Nachrichten sind dadurch sehr schwer zu lesen. Da es aber nicht jedermanns Sache ist, die Umlaute schon während des Verfassens der Mail zu umgehen, ist es sinnvoll, diese Arbeit dem Rechner zu überlassen. Voraussetzung ist, daß sowohl Exchange als auch Word 7.0 sowie Wordmail installiert sind. Wordmail gehört zum Lieferumfang von Word 7.0. Um die Umlaute in den Griff zu bekommen, ändern Sie den Word-Befehl ╗Datei û Senden½ so ab, daß alle Umlaute vor dem Senden mit Suchen und Ersetzen in Internettaugliche Schreibweise umgewandelt werden. Verwenden Sie dafür das abgedruckte Makro. Statt es jedoch komplett Zeile für Zeile abzutippen, ist es einfacher, den Grundstock durch eine Makroaufnahme zu legen. Wechseln Sie dafür in das Menü ╗Extras | Makro½ und geben Sie dort im Feld ╗Makroname:½ die Bezeichnung ╗DateiSenden½ ein. Nach einem Klick auf ╗Aufzeichnen½ wählen Sie im Menü ╗Bearbeiten½ den Punkt ╗Ersetzen½. Geben Sie im Feld ╗Suchen nach:½ ein ╗ä½ und in ╗Ersetzen durch:½ die Zeichenfolge ╗ae½ ein. Stellen Sie sicher, daß die Option ╗Groß-/Kleinschrei-bung beachten½ mit einem Häkchen aktiv gesetzt ist, und starten Sie den Vorgang mit ╗Alle ersetzen½. Schließen Sie die Dialogbox und stoppen Sie die Makroaufzeichnung durch einen Klick auf die Schaltfläche mit dem Rechteck im Makrofenster. Mit ╗Extras | Makro | DateiSenden | Bearbeiten½ können Sie nun das soeben erzeugte Makro editieren. Kopieren Sie die vorhandene Zeile und fügen Sie sie sechsmal ein. Die eingefügten Zeilen können Sie nun mit den anderen Umlauten versehen. Ergänzen Sie anschließend die Zeile ╗DateiSenden½, und das Makro ist ohne große Tipparbeit fertiggestellt. Beim nächsten Start von Exchange tritt das Makro in Aktion, wenn Sie eine Datei versenden. Allerdings sollten Sie jetzt eines beachten: Das Makro wandelt alle Nachrichten um, also auch jene E-mails, die nicht über das Internet versendet werden. Möchten Sie das Makro nur für Internet-Mails verwenden, können Sie dafür eine eigene Vorlage einsetzen. Wordmail greift im Standard auf die Dateivorlage ╗EMAIL.DOT½ im Verzeichnis ╗WINWORD \ WORD-MAIL½ zu. Allerdings können Sie die verwendete Vorlage in Exchange jederzeit mit ╗Verfassen | WordMail Optionen | Vorlage½ ändern. Möchten Sie also etwa ╗EMAIL.DOT½ für hausinterne Nachrichten und ╗EMAIL2.DOT½ für die Nachrichten ins Internet verwenden, sollten Sie das Makro ╗DateiSenden½ direkt mit der Vorlage ╗EMAIL2.DOT½ verknüpfen. Kopieren Sie dafür die Datei EMAIL2.DOT (im Unterverzeichnis ╗WORD-MAIL½ des Winword-Verzeichnisses) etwa in das Unterverzeichnis ╗Memos½ des Verzeichnisses ╗Vorlagen½ und wählen Sie anschließend in Word über den Menüpunkt ╗Datei | Neu | Memos½ die Vorlage ╗EMAIL2.DOT½ aus. Über ╗Extras | Makro | Organisieren½ klicken Sie nun auf das Makro ╗DateiSenden½ und kopieren es in die Vorlage ╗EMAIL2.DOT½. Anschließend entfernen Sie das Makro mit ╗Löschen½ aus der Dateivorlage ╗NORMAL. DOT½. In Exchange stellen Sie nun, je nachdem, in welchem Netz die Nachricht versendet wird, mit ╗Verfassen WordMail Optionen | Vorlage ändern½ die gewünschte Vorlage ein. Achten Sie beim Versenden der Dateien darauf, daß das Makro nur funktioniert, wenn der Cursor im Textfeld steht. Befindet sich die Eingabemarke im Empfängerfeld, geht die Nachricht mit Umlauten ins Netz. Diese Eigenart können Sie sich natürlich auch alternativ zur Technik mit den verschiedenen Vorlagen zunutze machen: Verschicken Sie die Datei ins Internet, setzen Sie den Cursor zum Absenden in das Textfeld - geht sie aber den Weg über das hausinterne Netz, dann setzen Sie den Cursor in das Empfängerfeld. Makro-Listing zum Ersetzen von Umlauten (nur eine Zeile pro BearbeitenErsetzen-Befehl) Sub MAIN On Error Resume Next BearbeitenErsetzen .Suchen = "ä", .Ersetzen = "ae", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textfluß = 1, .Reserviert31 = 0 BearbeitenErsetzen .Suchen = "ö", .Ersetzen = "oe", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textfluß = 1, .Reserviert31 = 0 BearbeitenErsetzen .Suchen = "ü", .Ersetzen = "ue", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textfluß = 1, .Reserviert31 = 0 BearbeitenErsetzen .Suchen = "ß", .Ersetzen = "ss", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textfluß = 1, .Reserviert31 = 0 BearbeitenErsetzen .Suchen = "Ä", .Ersetzen = "Ae", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textfluß = 1, .Reserviert31 = 0 BearbeitenErsetzen .Suchen = "Ö", .Ersetzen = "Oe", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textfluß = 1, .Reserviert31 = 0 BearbeitenErsetzen .Suchen = "Ü", .Ersetzen = "Ue", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textfluß = 1, .Reserviert31 = 0 DateiSenden End Sub