Гаряка Асмик:
А скажите пожалуйста этот вариант на Ваш взглвд не быстрее
Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:="" 'перейти к полю номер ...
If Selection.Information(wdWithInTable) = True Then ActiveDocument.Tables(ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count).Rows(Selection.Rows.First.Index).Delete
Еще бы хотелось сделать тоже самое, избавиться от строки: Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:="" , чтобы никуда не переходить