object begin = table.Range.End;
            object end = table.Range.End;
            Word.Range range = doc.Range(ref begin, ref end);

            range.InsertAfter("\r\n" + str);

            begin = range.Start +  1 ;
            end = range.End;
            Word.Range range2 = doc.Range(ref begin, ref end);

            range2.Select();
            Word.Table newt = range2.ConvertToTable(ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING, ref MISSING);


            begin = table.Range.End;
            end = newt.Range.Start;
            Word.Range range3 = doc.Range(ref begin, ref end);

            range3.Select();

            range3.Delete(ref MISSING, ref MISSING);

    Selection.ConvertToTable
    With Selection.Tables( 1 )
        .Style = "какой-то стиль" ' Если эту строку УБРАТЬ, то уже не будет работать (объединять таблицы)
    End With