[AND_REY]

Написал код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
W: Variant;
begin
W:= CreateOleObject('Word.Application');
W.Visible:= False;
W.Documents.Add;

W.Selection.TypeText('текст1');

W.ActiveDocument.Tables.Add(W.ActiveDocument.Range(0, 0), 5, 7);

W.Selection.TypeText('текст2');

W.ActiveDocument.Tables.Add(W.ActiveDocument.Range(0, 0), 5, 7);

W.Selection.TypeText('текст3');

W.ActiveDocument.SaveAs('C:\1.doc');
W.Activedocument.Close;
W.Application.Quit;
end;

Никак неполучается сделать так:
ТЕКСТ
ТАБЛИЦА
ТЕКСТ
ТАБЛИЦА и.т.д