Sub BoldRowBasedOnString()
 
Dim strName As String
Dim oDoc As Document
    Dim oTbl As Table
    Dim oCell As Cell
    Dim oRow As Row
    Dim strText As String, strRef As String
    Dim lngCol As Long
    Dim oRng As range
    Set oDoc = ActiveDocument
    Set oTbl = oDoc.Tables(2)
    strText = InputBox("Search text?")
    lngCol = CLng(InputBox("Enter column to search", "Must be 1 - 5"))
    For Each oCell In oTbl.range.Cells
    If oCell.RowIndex > 1 And oCell.ColumnIndex = lngCol Then
            On Error Resume Next
            If Left(oTbl.Cell(oCell.RowIndex, 1).range.Text, Len(oTbl.Cell(oCell.RowIndex, 1).range.Text) - 2) <> vbNullString Then
                strRef = Left(oTbl.Cell(oCell.RowIndex, 1).range.Text, Len(oTbl.Cell(oCell.RowIndex, 1).range.Text) - 2)
            End If
            If Left(oTbl.Cell(oCell.RowIndex, 1).range.Text, Len(oTbl.Cell(oCell.RowIndex, 1).range.Text) - 2) = vbNullString Then
                oTbl.Cell(oCell.RowIndex, 1).range.Text = strRef
            End If
            On Error GoTo 0
            If InStr(UCase(oCell.range.Text), UCase(strText)) > 0 Then
               oCell.range.Select
               With Selection
                  Selection.SelectRow
                  Selection.BoldRun
               End With
            End If
    End If
    Next
lbl_Exit:
    Set oDoc = Nothing: Set oTbl = Nothing: Set oCell = Nothing
    Exit Sub
    End Sub