[M.A.D.M.A.N.]

Код:

for i:=1 to n do begin
MsWord.ACtiveDocument.Tables.Item(1).Cell(1,1).Range.Text:='некоторый текст';
MsWord.ACtiveDocument.Tables.Item(1).Cell(2,1).Range.Text:='некоторый текст'; {таблиц много, для примера привёл всего две строки кода}
end;
MsWord.PrintOut;