Удаление строки таблицы по условию

[Ольга060289]

Доброго времени суток!
В документе ворд есть таблица. Необходимо с помощью макроса удалить строки, в которых во втором столбце присутствует слово КАША. Помогите написать макрос))) Пожалуйста)))

[Пименов Александр]

А зачем такая ерунда нужна? Тут и без макроса можно обойтись.

[viter.alex]

Попробуйте этот

With Selection.Find
	.ClearFormatting
	.Text = "КАША"
	.Forward = True
	.Wrap = wdFindContinue
	.Format = True
	.MatchCase = False
	.MatchWholeWord = False
	.MatchAllWordForms = False
	.MatchSoundsLike = False
	.MatchWildcards = True
	While .Execute
		If Selection.Columns.First.Index = 2 Then Selection.Rows.First.Delete
	Wend
End With

[Ольга060289]

Большое спасибо))) работает)))