Winword 2.0
Überflüssige Returns in Dokumenten mit einem Makro löschen
Antwort
Tip: Nach dem Einscannen eines Schriftstücks oder dem Importieren von DOS-Texten
enthalten die so erzeugten Dokumente häufig störende Returns an jedem Zeilenende.
Da eine einzeln auftauchende Absatzmarke in diesen Fällen lediglich die Zeilen beendet,
befinden sich an jedem Absatzende immer zwei Returns hintereinander.
Um die überflüssigen Absatzmarken nicht mühsam per Hand löschen zu müssen, lohnt
es sich, ein Makro aufzuzeichnen, das die „echten“ Absatzmarken durch eine
Zeichenfolge ersetzt, dann alle Returns löscht, um anschließend die Zeichenfolge wieder
durch eine Absatzmarke zu ersetzen.
Bevor Sie die Aufzeichnung starten, sollten Sie darauf achten, daß Sie kein wichtiges
Dokument geöffnet haben. Bei einem normalen Dokument, in dem die Absätze
durch einzelne Returns gesetzt wurden, gingen sonst die Absatzschaltungen verloren.
Verwenden Sie also ein Dokument mit Returns am Ende jeder Zeile und doppelter
Absatzschaltung oder legen Sie testweise ein neues Dokument an. Starten Sie dann die
Aufzeichnung mit »Extras | Makros | Aufzeichnen« und wählen Sie aus dem Menü
»Bearbeiten« den Punkt »Ersetzen«.
Betätigen Sie jetzt die Schaltfläche »Sonstiges« am unteren Rand der Dialogbox und
wählen Sie den Eintrag »Absatzmarke« ganz oben in der Liste aus. Wiederholen Sie
den Vorgang, und im Feld »Suchen nach:« müßte nun die Zeichenfolge »^a^a« stehen.
Schreiben Sie in die Zeile »Ersetzen durch:« eine Zeichenfolge, die sicher in keinem
Dokument vorkommt, also zum Beispiel »@##@«, und klicken Sie anschließend auf
»Alle ersetzen«. Schließen Sie die Meldungsbox über die Anzahl der Fundstellen mit
»OK« und löschen Sie eine der beiden Zeichenfolgen für Absatzmarken im Feld
»Suchen nach:«. Der Inhalt diese Feldes lautet jetzt »^a«. Das Feld »Ersetzen durch«
muß leer sein, also löschen Sie die zuvor festgelegte Zeichenfolge und betätigen dann
nochmals »Alle ersetzen«. Nachdem Sie auch die folgende Meldungsbox mit »OK«
geschlossen haben, tragen Sie in »Suchen nach:« die zuvor festgelegte Zeichenfolge (in
dem Beispiel »@##@«)ein. Unter »Ersetzen durch:« tragen Sie über »Sonstiges« jetzt
nur noch eine Absatzendemarke ein. Nach einem Klick auf »Alle ersetzen«, dem
Schließen des Mitteilungsfensters mit »OK« und der Dialogbox »Ersetzen« durch
»Schließen« können Sie die Makroaufzeichnung mit einem Klick auf die Schaltfläche mit
dem Quadrat beenden. Um alle überflüssigen Absatzendemarken durch das Makro
löschen zu lassen, starten Sie Ihr Makro einfach mit »Extras | Makro | Ausführen«.