Serienbrief - Zeilen löschen, wenn in Spalte nichts steht

[sveninho11]

Hallo zusammen,

ich benötige ein Makro für Word (Serienbrief) mit dem ich Zeilen in diversen Tabellen löschen kann, wenn in Spalte 1 in den Zellen nichts steht. Also quasi " ".

Habe auch folgendes Makro im Internet gefunden, aber es funktionert nicht... Wie kann ich bei dem Makro den Index anpassen, dass er nicht nur Table 1 sondern alle Tabelle durchschaut?

Sub WegDamit()
Dim wdTable As Word.Table
Dim lngZeilen As Long
Dim lngZeile As Long
Set wdTable = ActiveDocument.Tables(1)  'Index anpassen!!!

lngZeilen = wdTable.Rows.Count

For lngZeile = lngZeilen To 1 Step -1
 If Len(Trim(wdTable.Cell(lngZeile, 1).Range.Text)) < 3 Then
  wdTable.Rows(lngZeile).Delete
 End If
Next

End Sub


Vielen Dank für eure Hilfe :)

Beste Grüße
Linda

[schauan]

Hallöchen,

mit ActiveDocument.Tables.Count kannst Du die Anzahl der Tabellen feststellen und damit eine Schleife wie auch bei den Zeilen nutzen.