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:
Gruß Steffen
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 SubGruß Steffen
Antwort 2 von dumspirospero
Danke, das war genau das, was ich nicht wusste.

