Supportnet Computer
Planet of Tech

Supportnet / Forum / Textverarbeitung

Doppelte Absatzmarken automatisiert löschen





Frage

Folgendes Problem: unser Rechnungswesen wirft einen Word-Bericht heraus, der irrsinnig viele Absatzmarken enthält. Ich wollte diese nun mittels Makro löschen, in etwa in der Art: 1. Erkennen, wo zwei Absatzmarken hintereinander stehen. 2. Einen der beiden Absätze löschen. 3. und das in Schleife Ich arbeitete mich also langsam vor, kam aber an folgendes Problem: Ich dachte, die Absatzmarke wäre mit chr(13), chr(10) oder chr(182) eindeutig zu identifizieren, so dass ich darauf meinen Vergleich aufbauen kann. Word-Visualbasic gibt mir jedoch immer wieder eine Fehlermeldung zurück, wenn ich das ansatzweise teste. Kann mir jemand in etwa die Richtung weisen ?

Antwort 1 von steffen2

Makro-Beispiel:


 Sub Makro1()
´
´ Makro1 Makro
´ Makro aufgezeichnet am 25.04.2005 von User0815
´
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^p"
        .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
End Sub


Gruß Steffen

Antwort 2 von dumspirospero

Danke, das war genau das, was ich nicht wusste.