Sub Macro1()
Dim oTable As Table
Dim oCell As Range
    For Each oTable In ActiveDocument.Tables
        Set oCell = oTable.Cell(1, 1).Range
        oCell.Text = Replace(oCell.Text, "sample", "Sample")
    Next oTable
    Set oCell = Nothing
    Set oTable = Nothing
End Sub