Удаление смежных дубликатов строк

[mandrian]

Добрый день! Помогите, плиз!
В Word есть табличка в 1 столбец. Нужно удалить дубликаты строк, но только в том случае, если они рядом расположены. Само собой, сортировка исключается.

[Step_UA]

Sub Del()
    Application.ScreenUpdating = False
    With ActiveDocument.Tables(1).Rows
        old = .Item(.Count).Range.Text
        For i = .Count - 1 To 1 Step -1
            If old = .Item(i).Range.Text Then
                .Item(i).Delete
            Else
                old = .Item(i).Range.Text
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub

[mandrian]

Все четко работает!
Спасибо огромное!
А еще вопросик можно (конкретный)?
Нужен код удаления пустых строк в таблице в Ворде, плиз.

[Step_UA]

Удаляются строки из первой таблицы ...

Sub DelRows()
    Dim R As Row
    For Each R In ActiveDocument.Tables(1).Rows
        If R.Range.ComputeStatistics(wdStatisticWords) = 0 Then R.Delete
    Next
End Sub

[mandrian]

И снова спасибо! Блеск!