leere Absätze löschen

06/10/2009 - 09:04 von Kerstin Schiebel | Report spam
Hallo,

ich möchte in einem Dokument alle Absàtze, die nur aus Tab und Absatzmarke
bestehen, löschen.
Mein Code sieht so aus:

'leere Zeilen mit Tab löschen
Dim absatz As Paragraph
Dim absatze As Paragraphs

Set absatze = objWDDoc.Paragraphs

For Each absatz In absatze
If absatz.Range.Text = vbTab & vbCrLf Then absatz.Range.Text = ""
Next absatz


Leider werden die Absàtze nicht gelöscht.
Auch die Suche nach "^t^p" bringt nichts. (manuelles Suchen und Ersetzen
dagegen funktioniert)

Hat jemand eine Idee, woran das liegt?
Danke und Gruß
Kerstin
 

Lesen sie die antworten

#1 Kerstin
06/10/2009 - 13:03 | Warnen spam
Manchmal steht man schon auf dem Schlauch ...

If absatz.Range.Text = Chr(9) & Chr(13) Then absatz.Range.Delete
löst mein Problem.

Kerstin

"Kerstin Schiebel" schrieb im Newsbeitrag
news:%
Hallo,

ich möchte in einem Dokument alle Absàtze, die nur aus Tab und Absatzmarke
bestehen, löschen.

Ähnliche fragen