Sub Macro1()
Dim oTable As Table
Dim oRng As Range
Dim oRow As Row
Const strText As String = "Text to find"
    Set oTable = Selection.Tables(1)
    For Each oRow In oTable.Rows
        If InStr(1, oRow.Range, strText) > 0 Then
            Set oRng = oRow.Range
            oRow.ConvertToText Separator:=Chr(9)
            oRng.Font.Bold = True
            oRng.Font.Size = 14
            oRng.ParagraphFormat.Alignment = wdAlignParagraphCenter
            oRng.InsertParagraphBefore
        End If
    Next oRow
lbl_Exit:
    Set oTable = Nothing
    Set oRng = Nothing
    Set oRow = Nothing
    Exit Sub
End Sub