Still the same after adding line: And Not Len(oPar.Next.Range) = 1

Sub add_sign_xml()


Dim oPar As Paragraph


    For Each oPar In ActiveDocument.Range.Paragraphs
    If oPar.Range.Characters.First = "<" _
    And Not InStrRev(oPar.Range.Text, "-") > 0 _
    And Not InStr(oPar.Next.Range.Text, "<tr>") > 0 _
    And Not Len(oPar.Next.Range) = 1 Then 
               
                oPar.Range.InsertAfter "add"
     
    End If
  
Next


End Sub