Try:
Sub add_before_xml()
Dim bRng As Range
Dim oPar As Paragraph
Set bRng = ActiveDocument.Range
With bRng.Find
With .Font
.Size = 8
.Underline = wdUnderlineSingle
End With
Do While .Execute(MatchWholeWord:=True)
bRng.End = bRng.Paragraphs(1).Range.End - 1
With bRng
.Select
.InsertBefore "<tr><td>"
.InsertAfter "</td></tr>"
.Collapse 0
End With
Loop
End With
For Each oPar In ActiveDocument.Range.Paragraphs
If oPar.Range.Characters.First = "-" And Not InStr(oPar.Range.Text, "<tr>") > 0 Then
oPar.Range.InsertBefore "<tr><td>"
oPar.Range.InsertAfter "</tr></td>"
End If
Next
lblb_Exit:
Set bRng = Nothing
End Sub