Удаление строк в таблице

[maksim_serg]

Здравствуйте!
Есть у меня таблица: 30 строк х 25 столбцов. как мне макросом удалить строки с 12 по 19 при условии что в этой строке в столбце номер 3 пусто. таблиц в документе одна. нашел примерный код (http://www.programmersforum.ru/showthread.php?t=68309):

    For i = 19 To 12 Step -1
        If Len(ActiveDocument.Tables(1).Cell(i, 3).Range.Text) = 2 Then
            а что написать чтоб удалялась строка номер i
        End If
    Next i

подскажите синтаксис удаления строки. Смотрел справку и так записывал макрос, но так ничего и неполучилось...

[viter.alex]

Наверное так, если в таблице нет ячеек, объединённых по строкам

ActiveDocument.Tables(1).Rows(i).Delete

Если такие ячейки есть, то нужно проверять все ячейки третьего столбца по свойству RowIndex, начиная с конца. И те, у которых этот индекс от 19 до 12, удалять.

[maksim_serg]

Ошибка: присутсвуют ячейки объедененные по вертикали, хотя в диапазоне 12:19 таких нет.

set adt = ActiveDocument.Tables(1)
ActiveDocument.Range(adt.Cell(i, 1).Range.Start, adt.Cell(i, 25).Range.End).Cells.Delete

слижком сложно и наверное много лишнего но работает

[viter.alex]

Нет, ничего лишнего я не вижу. Правильный подход. Просто отлично!

[maksim_serg]

а как все тоже самое сделать, но макросом excel'я?

With CreateObject("word.application")
.documents.Open (ThisWorkbook.Path & "\мой файл.doc")
Set adt = .ActiveDocument.Tables(1)

    For i = 19 To 12 Step -1
        If Len(adt.Cell(i, 3).Range.Text) = 2 Then
            .ActiveDocument.Range(adt.Cell(i, 1).Range.Start, adt.Cell(i, 25).Range.End).Cells.Delete
            .ActiveDocument.Range(adt.Cell(i - 1, 2).Range.Start, adt.Cell(i - 1, 24).Range.End).Cells.Borders(wdBorderBottom).LineStyle = Options.DefaultBorderLineStyle
        End If
    Next i

End white

То ошибка здесь: If Len(adt.Cell(i, 3).Range.Text) = 2 Then
То здесь: .ActiveDocument.Range(adt.Cell(i - 1, 2).Range.Start, adt.Cell(i - 1, 24).Range.End).Cells.Borders(wdBord erBottom).LineStyle = Options.DefaultBorderLineStyle
То вообще работаетбез ошибки, но и ничего не делает

[viter.alex]

'Не ленитесь объявлять переменные
Dim wdApp As Object
Dim wdDoc As Object
Dim adt As Object

Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open (ThisWorkbook.Path & "\мой файл.doc")
Set adt = wdDoc.Tables(1)

    For i = 19 To 12 Step -1
        If Len(adt.Cell(i, 3).Range.Text) = 2 Then
            wdDoc.Range(adt.Cell(i, 1).Range.Start, adt.Cell(i, 25).Range.End).Cells.Delete
            wdDoc.Range(adt.Cell(i - 1, 2).Range.Start, adt.Cell(i - 1, 24).Range.End).Cells.Borders(wdApp.WdBorderType.wdBorderBottom).LineStyle = wdApp.Options.DefaultBorderLineStyle
        End If
    Next i
'И уничтожать после использования
Set wdDoc = Nothing
Set wdApp = Nothing