Word 2K: In einer Zelle die erste "leere Zeile" löschen

29/09/2008 - 10:36 von Andreas Bernd Ksienzyk | Report spam
Hallo,

immer noch das gleiche Projekt - und bin immer noch ganz glücklich, daß hier
so viel Know How versammelt ist!

Ich habe eine Tabelle, in welcher manche Zellen mit einer "Leerzeile"
beginnen. Das heißt es findet sich kein Zeichen, sondern nur eine Absatzmarke
am Anfang der Zelle.

Nun lösche ich die bisher per Hand. Geht das auch eleganter ;-)?

Herzliche Grüße und Tausend Dank

Andreas Ksienzyk
 

Lesen sie die antworten

#1 Helmut Weber
29/09/2008 - 13:28 | Warnen spam
Hallo Andreas,

Schreibmarke in die Tabelle stellen, dann:


Sub Test4h()
Dim oCll As Cell
With Selection.Tables(1)
For Each oCll In .Range.Cells
If Len(oCll.Range.Text) > 2 And _
oCll.Range.Characters.First = Chr(13) Then
oCll.Range.Characters.First = ""
End If
Next
End With
End Sub

Gruss
Helmut Weber, MVP WordVBA
Word 2002, Windows XP

Ähnliche fragen