Zeilenumbrⁿche aus Download-Texten entfernen

Bei Ihren Recherchen im Internet finden Sie viele interessante Textstellen, die Sie an anderer Stelle verwenden m÷chten. Sie kopieren das Dokument und fⁿgen es in Word ein. Danach enthΣlt es zahlreiche unn÷tige Zeilenwechsel, die den Text unⁿbersichtlich machen. Statt jeden Zeilenwechsel mⁿhsam mit der Hand zu l÷schen, k÷nnen Sie dieses Problem mit einem kleinen Makro beheben.

Fⁿhren Sie den Befehl ╗Extras | Makro | Makros½ aus. Geben Sie einen Namen fⁿr das Makro ein û in unserem Beispiel ╗Downloadtext½ û und klicken Sie dann auf ╗Erstellen½. Im VBA-Editor geben Sie nun folgende Zeilen ein: Public Sub Downloadtext() WordBasic.StartOfDocument WordBasic.EditReplace t Find:=ô^l^lô,Replace:=ô$#$#ô, t --Direction:=0, ReplaceAll:=1, t Format:=0, Wrap=0 WordBasic.EditReplace t Find:=ô^lô, Replace:=ô ô, t ReplaceAll:=1, Format:=0, t Wrap:=0 WordBasic.EditReplace t Find:=ô$#$#ô, t Replace:=ô^pô, t ReplaceAll:=1, Format:=0, t Wrap:=0 End Sub Das Makro sucht echte AbsΣtze im Text anhand des Steuercodes ╗^l^l½, der zwei Zeilenwechsel ausl÷st. Der erste Befehl ersetzt diese Stellen durch eine beliebige Zeichenfolge. In unserem Beispiel ist ╗$#$#½ eine Zeichenfolge, die sonst im Text sicher nicht vorkommt. Der nΣchste Befehl ersetzt einfache Zeilenwechsel durch ein Leerzeichen. Dies verhindert, dass benachbarte W÷rter nach dem Entfernen der Zeilenwechsel lⁿckenlos aneinander stehen. Als letztes wird die Zeichenfolge ╗$#$#½ wieder angesteuert und anschlie▀end durch erwⁿnschte Absatzmarken ersetzt.