Вывод таблицы из MS Word в StringGrid

[artyr_95]

Добрый вечер, помогите разобраться нужно из MS Word таблицу перенести в StringGrid проблема в том что он не все ячейки копирует в StringGrid, доходит до определенной ячейки и выдает ошибку "Запрашиваемый номер семейства не существует".
Вот исходник программы и документ который нужно считать:

[иванлеон]

Нумерация строк при объединении ячеек в Word потерялась. Тяжко её описать

  Sg.ColCount := Sg.FixedCols + wdTable1.Columns.Count;
  Sg.RowCount := Sg.FixedRows + wdTable1.Rows.Count;
  //Копируем данные.
  i := Sg.FixedRows;
  for Row := 1 to wdTable1.Rows.Count do begin
    j := Sg.FixedCols;
    for Col := 1 to wdTable1.Columns.Count do begin
      try
      S := wdTable1.Cell(Row, Col).Range.Text;
     except

     end;
      //Удаление конечных символов #13#10.
      Delete(S, Length(S) - 1, 2);
      Sg.Cells[j, i] := S;
      Inc(j);
    end;
    Inc(i);
  end;