How can I use Word Vba to insert a blank row after rows with cells containing certain texts?

[jamu]

How can I use Word Vba to insert a blank row after rows with cells containing certain texts? For example, I want to insert a blank row after a row that has the word "total" in a cell. There are several tables in the document and in each table there can be the word or the word criteria in a row at regular intervals.

[gmayor]

Assuming no merged cells

Sub Macro1()
Dim oTable As Table
Dim oRow As Row
Dim i As Integer, j As Integer
    For i = 1 To ActiveDocument.Tables.Count
        Set oTable = ActiveDocument.Tables(i)
        For j = oTable.Rows.Count To 1 Step -1
            Set oRow = oTable.Rows(j)
            If InStr(1, oRow.Range, "total") > 0 Then
                oRow.Range.Rows.Add
            End If
        Next j
    Next i
    Set oTable = Nothing
    Set oRow = Nothing
End Sub

[jamu]

Thank you, it worked perfectly, the problem is now solved.