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()
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