function Word_Table_Cells_Get(msWord:variant; vTabl:variant; ListCells:TStrings; Yes_SameAlgorithm:boolean=false):integer;
//Таблица. Получить список всех существующих ячеек (с учетом объединенных ячеек: столбцы и/или строки)
{
Формат возвращаемого значения (в списке ListCells):
НомерСтроки=ПереченьЯчеекВСтроке                                                                    
Пример:
1=[1][2][3][4]
2=[1][2][4]
}
Var
  RowsCount : integer;
  iRow:integer;
  Sx:string;
begin
  Result:=0;
  if Assigned(ListCells) then begin
     ListCells.Clear;
     if not VarIsEmpty(msWord) then begin
        if not VarIsEmpty(vTabl) then begin
           RowsCount:=vTabl.Rows.Count;
           if RowsCount>0 then begin
              iRow:=0;
              while iRow<RowsCount do
               begin
                iRow:=iRow+1;
                Sx:=trim(Word_Table_Row_Cells_Get(msWord, vTabl, iRow, Yes_SameAlgorithm));
                if length(Sx)>0 then begin
                   ListCells.Values[IntToStr(iRow)]:=Sx;
                end;
              end;
           end;
        end;
     end;
     Result:=ListCells.Count;
  end;
end;
    
  
function Word_Table_Row_Cells_Get(
                                  msWord:variant; //Ссылка на Word-приложение                                                         
                                  vTabl:variant;  //Ссылка на таблицу                                                     
                                  nRow:integer;   //Номер обрабатываемой строки                                                                                      
                                  Yes_SameAlgorithm:boolean=false //Флаг: Если TRUE, то используется единый алгоритм обработки                                                                                                                                      
                                  ):string;
//Таблица. Получить список существующих ячеек в заданной строке (с учетом объединенных ячеек: столбцы и/или строки)
//Формат возвращаемого значения: [1][2][3]
Var
  vRow, vCell, vSel:variant;
  ColsCount:integer;
  iCell, CellsCount:integer;
begin
  Result:='';  //Возвращаемое значение                                               
  if not VarIsEmpty(msWord) then begin
     if not VarIsEmpty(vTabl) then begin
        if nRow>0 then begin
           if nRow<=vTabl.Rows.Count then begin
              if Word_Table_Merged_Rows_Contains(vTabl) then begin  //Проверка таблицы (содержит ли объед. строки)                                            
                 //Таблица содержит хотя бы одну ячейку с объединенной строкой                                                                                                                                                                                                                                                                 
                 ColsCount:=vTabl.Columns.Count; //Общее (максимальное) кол-во столбцов в таблице                                                                              
                 //.......................................
                 //Формируем возвращаемое значение                        
                 iCell:=0;
                 while (iCell<=ColsCount) do
                  begin
                    iCell:=iCell+1;
                    if Word_Table_Cell_Exist(vTabl, nRow, iCell) then begin //Контроль, что ячейка существует                                                   
                        Result:=Result+'['+IntToStr(iCell)+']';
                    end;
                 end;
                 //.......................................
              end
              else begin
                 //Таблица НЕ содержит ячеек с объединенной строкой                                                                                                                                                                                                                                                                 
                 if Yes_SameAlgorithm then begin
                    //Используется один и тот же алгоритм                                                                                                                                                                 
                    ColsCount:=vTabl.Columns.Count; //Общее (максимальное) кол-во столбцов в таблице                                                                                                                    
                    //.......................................
                    //Формируем возвращаемое значение                        
                    iCell:=0;
                    while (iCell<=ColsCount) do
                     begin
                       iCell:=iCell+1;
                       if Word_Table_Cell_Exist(vTabl, nRow, iCell) then begin //Контроль, что ячейка существует  
                           Result:=Result+'['+IntToStr(iCell)+']';
                       end;
                    end;
                 end
                 else begin
                    //Разные алгоритмы обработки                                                                                                                                                                                        
                    vRow:=vTabl.Rows.item(nRow); //ссылка на заданную строку                                                                
                    vRow.Select;
                    vSel:=msWord.Selection;
                    CellsCount:=vSel.Cells.Count; //Кол-во ячеек в строке таблицы    
                    //.......................................
                    //Формируем возвращаемое значение                        
                    iCell:=0;
                    while iCell<CellsCount do
                     begin
                       iCell:=iCell+1;
                       if Word_Table_Cell_Exist(vTabl, nRow, iCell) then begin //Контроль на всякий случай                                                          
                          //Ячейка существует                                                                                                                                                                                 
                          Result:=Result+'['+IntToStr(iCell)+']';
                       end;
                    end;
                    //.......................................                                                                                                                              
                 end;
              end;
              Result:=trim(Result);
           end;
        end;
     end;
  end;
end;
  

function Word_Table_Merged_Rows_Contains(vTabl:variant):boolean;
//Контроль таблицы (содержит ли объединенные строки)
//Возвр. значение: TRUE - Таблица содержит хотя бы одну ячейку с объединенной строкой                                                               
Var
  vRow : variant;
begin
  Result:=true;
  if not VarIsEmpty(vTabl) then begin
     if vTabl.Rows.Count>0 then begin
        Result:=true;
        TRY
          //При попытке получения ссылки на строку таблицы (где есть ячейки, содержащие объединенные строки)
          //вызывается Exception                                                         
          vRow:=vTabl.Rows.item(1);
          if not VarIsEmpty(vRow) then begin //До этой строки не дойдет, но на вскяий случай                                                                                                              
             Result:=false;
          end;
        EXCEPT
        END;
     end;
  end;            
end;        

function Word_Table_Cell_Exist(vTbl:variant; nRow:integer; nCol:integer):boolean;
//Проверка существования ячейки таблицы                                                                                          
Var
  vCell:variant;
begin
  Result:=false;
  if ((nRow>0) and (nCol>0)) then begin
     if not VarIsEmpty(vTbl) then begin
        if (nRow<=vTbl.Rows.Count) then begin
           if (nCol<=vTbl.Columns.Count) then begin
              TRY
                vCell:=vTbl.Cell(nRow, nCol);
                if not VarIsEmpty(vCell) then begin
                   Result:=true;
                end;
              EXCEPT
              END;
           end;
        end;
     end;
  end;
end;