Zeilenumbrüche in E-Mails (Microsoft Word)
Die meisten E-Mail-Client-Programme – insbesondere diejenigen, die einfachen Text anstelle von HTML verwenden – „brechen“ automatisch jede E-Mail-Zeile mit 70 oder 72 Zeichen. Glücklicherweise brechen sie normalerweise keine Zeile in der Mitte eines Wortes, sondern am Anfang des Wortes, das die 70- oder 72-Zeichen-Marke erreicht.
Leider kann dies einige nachteilige Auswirkungen auf E-Mails haben, die Sie in Word verfassen. Einige Ihrer Zeilen können, wenn sie von Ihrem Empfänger angezeigt werden, seltsam aussehen, an nicht optimalen Stellen brechen und im Allgemeinen ziemlich funky aussehen. Die Lösung besteht natürlich darin, dass Sie jede Linie unterbrechen, wenn die entsprechende Stelle auf der Linie erreicht ist. Auf diese Weise können Sie im Voraus steuern, wie Ihr Empfänger Ihre Nachricht sieht.
Sie können dies bei Bedarf manuell tun, indem Sie Ihre Nachrichtenränder so einstellen, dass horizontal nur 7 oder 7,2 Zoll Platz vorhanden sind. Sie würden dann eine 12-Punkt-Monospace-Schriftart wie Courier verwenden, um die Nachricht einzugeben. Wenn ein Wort in die nächste Zeile umgebrochen wird, drücken Sie einfach die Rücktaste an den Wortanfang und drücken Sie die Eingabetaste.
Dies kann sehr schnell sehr alt werden, selbst wenn Sie nur eine mäßige Menge an E-Mails senden. Die bessere Lösung besteht darin, Word zu erlauben, die Pausen für Sie zu machen, aber es scheint keine solche Fähigkeit in Word zu geben. (Sie können Ihre Optionen in Outlook oder Outlook Express so einrichten, dass Zeilen automatisch für Sie unterbrochen werden. Dies gibt Ihnen jedoch keine so gute Kontrolle wie direkt in Word.)
Dies bringt uns auf makroökonomisches Gebiet. Mit dem folgenden Makro können Sie das aktuelle Dokument überprüfen und jeden Absatz automatisch „zerlegen“, sodass keine Zeile länger als 70 Zeichen ist.
Sub ChopItUp() Dim DocThis As Document, docThat As Document Dim sParRaw As String Dim iParCount As Integer, iParOut As Integer Dim J As Long, X As Integer Dim iLineWidth As Integer Dim sLeft As String, sRight As String Dim sTemp As String iLineWidth = 70 Set DocThis = ActiveDocument Documents.Add Set docThat = ActiveDocument DocThis.Activate iParCount = DocThis.Paragraphs.Count iParOut = 0 For J = 1 To iParCount sParRaw = DocThis.Paragraphs(J).Range.Text If Right(sParRaw, 1) = Chr(13) Then sParRaw = Left(sParRaw, Len(sParRaw) - 1) End If sRight = sParRaw If Len(sRight) > iLineWidth Then While Len(sRight) > iLineWidth sLeft = Left(sRight, iLineWidth) sRight = Mid(sRight, iLineWidth + 1) flgDoIt = True If Left(sRight, 1) = " " Then sRight = Mid(sRight, 2) flgDoIt = False End If If Right(sLeft, 1) = " " Then sLeft = Left(sLeft, Len(sLeft) - 1) flgDoIt = False End If If flgDoIt Then X = InStr(LTrim(sLeft), " ") If X > 0 Then sTemp = "" While Right(sLeft, 1) <> " " sTemp = Right(sLeft, 1) & sTemp sLeft = Left(sLeft, Len(sLeft) - 1) If Len(sLeft) = 0 Then sLeft = sTemp & " " sTemp = "" End If Wend sRight = sTemp & sRight End If sLeft = Trim(sLeft) End If docThat.Paragraphs.Add docThat.Paragraphs(docThat.Paragraphs.Count).Range = sLeft sLeft = "" sRight = Trim(sRight) Wend End If docThat.Paragraphs.Add docThat.Paragraphs(docThat.Paragraphs.Count).Range = sRight Next J End Sub
Wenn Sie dieses Makro ausführen, wird ein brandneues Dokument geöffnet und die Informationen aus dem alten Dokument in dieses kopiert. Dabei wird sichergestellt, dass jede Zeile nicht länger als 70 Zeichen ist. Das neue Dokument enthält keine Formatierung. (Da Sie Klartext-E-Mails zusammenstellen, sollte dies kein Problem sein.) Wenn Sie eine andere Zeilenbreite wünschen, müssen Sie lediglich den iLineWidth im Makro zugewiesenen Wert ändern.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.
(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (11466) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier: