Работа с word текстом и таблицей.

[cat2899]

Люди добрые, никак не могу понять, как из одного word документа вставить текст в мой новый созданый word документ, причем таким образом чтобы этот текст был перед таблицей.

Вот код:

procedure TForm1.Button18Click(Sender: TObject);
var
extend:OLEVariant;
begin
W := CreateOleObject('Word.Application') ;
W.Documents.Add;

// как я понял вставлять текст необходимо как-то здесь, но потом почему-то таблица съедает этот текст.
Помогите с кодом, пожалуйста!

W.ActiveDocument.Tables.Add(W.Activ eDocument.Range, StringGrid1.RowCount, StringGrid1.ColCount);
//W.ActiveDocument.Tables.Item(1).Col umns.Item(1).PreferredWidth:=10;
W.ActiveDocument.Tables.Item(1).Col umns.Item(1).Width:=20;
W.ActiveDocument.Tables.Item(1).Col umns.Item(2).Width:=240;
W.ActiveDocument.Tables.Item(1).Col umns.Item(3).Width:=70;
W.ActiveDocument.Tables.Item(1).Col umns.Item(4).Width:=70;
W.ActiveDocument.Tables.Item(1).Col umns.Item(5).Width:=70;
//-----------------------------------------------------------
Table := W.ActiveDocument.Tables.Item(1);
Table.Style := 'Сетка таблицы';
for i := 0 to StringGrid1.RowCount - 1 do
for j := 0 to StringGrid1.ColCount - 1 do
begin
Table.Cell(i + 1, j + 1).Range.Text := StringGrid1.Cells[j, i];
Table.Cell(i + 1, j + 1).Range.Font.Color := ColorToRGB(StringGrid1.Font.Color);
Table.Cell(i + 1, j + 1).Range.Font.Name := StringGrid1.Font.Name;
end;

W.Visible := True;
end;