insertBefore hypen and call Subroutine

Hi, the following code add text before every paragraph, it is not working correctly when at the begin of paragraph is hypen: "-".
Also is it possible to call this Sub only when this kind of table will appear in the document and stops where table is end?
example table: Attachment 23227:

Code:

---

Sub xml_tabela()


    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^t"
        .Replacement.Text = "</td><td>"
        .Forward = True
        .Wrap = wdFindContinue
       
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   
   
    'Sub body_loop_xml()
         
    Dim bRng As Range
    Set bRng = ActiveDocument.Range
    With bRng.Find
       
               
                With .Font
                    .Size = 8
                    .bold = False
                    .Italic = False
                End With
         
        Do While .Execute(MatchWholeWord:=True)
     
               
        bRng.End = bRng.Paragraphs(1).Range.End - 1
            With bRng
                .InsertBefore "<tr><td>"
                .InsertAfter "</td></tr>"
                .Collapse 0
            End With
       
        Loop
    End With

---