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;