Поиск текста в таблице файла Word и удаление строки с текстом - VBA

Формулировка задачи:

Здравствуйте, есть макрос по поиску и замене текста из таблицы Excel в шаблоне файла Word

Dim WA As Object, WD As Object: Set WA = CreateObject("Word.Application") 
.....
         WA.Selection.HomeKey 6 'wdStory
                With WA.Selection.Find 'было Range.find но не работало с текстом более 255 символов
                    .Text = FindText
                    .Forward = True
                    .Wrap = 1   'wdFindContinue
                    .Format = False
                    .MatchCase = False
                    .MatchWholeWord = False
                    .MatchWildcards = False
                    .MatchSoundsLike = False
                    .MatchAllWordForms = False
                    Do While .Execute
                        WA.Selection.TypeText ReplaceText
                        WA.Selection.Collapse Direction:=0 'wdCollapseEnd
                    Loop
                End With
                DoEvents
            Next i
                       
            WD.SaveAs Filename: WD.Close False: DoEvents
            WA.Documents.Open Filename:=Filename
            WA.Visible = True
            WA.Application.WindowState = 1
            WA.Activate

и так далее... как дописать код чтобы при нахождении findtext определённого значения findtext={имяi}, макрос удалял строку таблицы открытого документа word с найденным значением findtext? Спасибо

Решение задачи: «Поиск текста в таблице файла Word и удаление строки с текстом»

textual
                            Листинг программы 
                        

                                    Do While .Execute
            If WA.Selection.Tables.Count > 0 Then
                WA.Selection.Rows(1).Delete
            Else
                WA.Selection.Collapse Direction:=0 'wdCollapseEnd
            End If
        Loop
                        