GRATIS-MAKROS "MailsZuText" FÜR WORD 2000

Texte aus E-Mails zu verarbeiten, beschert allzuoft Ärger. Häufig führen die automatischen Zeilenumbrüche zu Problemen. Manche Mailtexte brechen jede Zeile nach 40 Zeichen um, andere nach 60. Ergebnis ist eine Absatzmarken-Orgie im Textprogramm. Der Text muss mühsam, Zeile für Zeile, neu formatiert werden. Die simple Suchen-und-Ersetzen-Routine dieser Makros verwandelt jeden Mailtextblock zurück in einen Fließtext.

ANLEITUNG:

Es gibt zwei Versionen: "MailsZuTextHart" und "MailsZuTextWeich". Welches Makro Sie jeweils starten sollten, hängt vom Text ab. Aktivieren Sie zunächst die Anzeige der Sonderzeichen: STRG-Taste gedrückt halten und Sternchen-Taste aktivieren (SHIFT-+).

- Sehen Sie jetzt an jedem Zeilenende die Absatzmarke (Symbol Pi), haben Sie es mit harten Zeilenumbrüchen zu tun. Starten Sie das Makro "MailsZuTextHart".

- Sehen Sie jedoch an jedem Zeilenende einen gedrehten Pfeil (wie das Symbol auf der Eingabe-/Return-Taste), wird Ihr Text von weichen Absätzen   verunstaltet. (Word heißt sie "Textumbruchwechsel".) Starten Sie das Makro "MailsZuTextWeich".

INSTALLATION:

1. Den unten stehenden Code markieren und kopieren (STRG+C).
2. ALT+F8 betätigen.
3. Bei Makroname "MailsZuTextHart" eingeben.
4. Auf "Erstellen" klicken.
5. Makrocode einfügen (STRG-V).
6. Schließen (ALT+F4).

Fertig. Das Ganze noch mal, für "MailsZuTextWeich".



A) "MailsZuTextHart"

kopieren ab nächste Zeile, bis vor B):

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "> "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "*§*"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = "*§*"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


B) "MailsZuTextWeich"

ab hier kopieren:

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "> "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^l^l"
        .Replacement.Text = "*§*"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = "*§*"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll