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: tabela.docx:

Sub xml_tabela()

    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
    End With