удаление сразу всех пустых строчек в таблице

[kibernet]

есть таблица с текстом, и в ней есть пустые строчки (не ячейки).
Как удалить сразу все пустые строчки?

[shanemac51]

Sub m101221_0628()
Dim j1, s1, s2
Dim tbl As Table
Set tbl = Word.ActiveDocument.Tables(1)
j1 = tbl.Rows.Count
Debug.Print j1
On Error Resume Next
Do While j1 > 0
s1 = "\\"
s2 = s1
s1 = Trim(tbl.Cell(j1, 1).Range.Text)
s2 = Trim(tbl.Cell(j1, 2).Range.Text)
Debug.Print Len(s1), Len(s2)
If Len(s1) = 3 And Len(s2) = 3 Then
tbl.Rows(j1).Delete
End If
j1 = j1 - 1
Loop
End Sub

[kibernet]

ого, спасибо огромное.
Но не могли б Вы еще подсказать куда это все вставить ))
я подозреваю, что в макросы...
у меня ворд 2003. это Сервис - Макрос - Редактор Visual Basic...

подскажите, пожалуйста, а то я не силен -_-

[kibernet]

аа, разобрался, все пашет на УРА!!! спасибо еще раз shanemac51
очень выручил меня. И с наступающим