из таблицы word в excel

[almazenok]

привет!помогите мне перенести данные из таблицы word в excel!

while x=1 do
begin

\\\ я не знаю правильно ли,но здесь проверяется существует ли ячейка

if app.activedocument.Tables.Item(1).C ell(k,2).range.text=false then

begin
j:=1;
k:=12;
i:=1;
//здесь типо берет текст из ячейки ворда и переносит в ексель
epp.Cells[i,1]:=app.activedocument.Tables.Item(1) .Cell(j,2).Range.Text;
epp.Cells[i,2]:=app.activedocument.Tables.Item(1) .Cell(k,4).Range.Text;
epp.Cells[i,3]:=app.activedocument.Tables.Item(1) .Cell(k,5).Range.Text;
epp.Cells[i,4]:=app.activedocument.Tables.Item(1) .Cell(k,6).Range.Text;

i:=i+1;
k:=k+12
j:=j+12;
x:=1;
end

else
x:=2;