MS WORD макрос

[Mayor]

мне нужно переформатировать таблицу в word порядка 100 страниц - в ручную делать это достало )
Скиньте пожалуйста пример пример рекурсивного макроса который выделяет строку таблицы в word, которая содержит tag ( или определенную последовательность символов)

[Mayor]

Вроде работает, хоть и очень криво, может кто более понятную версию предложит, а то я это до сих пор не пойму что написал ...

Sub Макрос4()
'
' Макрос4 Макрос
' Макрос записан 17.08.04 Mayor
'
l1:
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "tag"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    If Selection.Find.Execute = False Then GoTo l2
   
    Selection.Delete
    Selection.HomeKey Unit:=wdRow
    Selection.EndKey Unit:=wdRow, Extend:=True
    With Selection.Cells
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
    End With
    GoTo l1
l2:
 End Sub

Тут в плане полезной нагрузки удаляется верхняя линия столбца содержащего tag, хотелось бы как-то проверку добавить на конец таблицы  - и вообще искать только по таблице а не по всему документу, вести поиск только по N-ной  колонке, и исключить удаление tag

Но это мне не по силам

Щас еще для tag-заголовка  макрос буду писать - такой же кривой