Всем привет.
Вроде всего много про StrGrid и Word, но ненашел ответ вот на какой вопрос.
Есть StringGrid с заполненными ячейками во время работы программы, есть шаблон таблицы
MS Word, как бы их скрестить?
Причем каждой ячейки StrGrid должна соответствовать своя ячейка в таблице Word.
Возможно ли такое?
Спасибо

Uses ComObj;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Word : variant;
myDoc: Variant;
myTable: Variant;
i,j:Integer;
begin
try
word:=CreateOleObject('Word.Application');
myDoc:=Word.Documents.Add('Normal.dot'); // здесьь можно указать свой шаблон
MyTable:=MyDoc.Tables.Add(myDoc.Range, 5,5);
{
если шаблоне уже существует талицы, то его надо указывать:
MyTable:=MyDoc.Tables(1); 1 - это первая таблица.
}
for i:=1 to 5 do //Строки
for j:=1 to 5 do // столбики
MyTable.Cell(i,j).Range.text:=StringGrid1.Cells[i,j];

Word.visible:=true;
except
on E: Exception do begin
Word.Quit;
end;
end;
end;

Как это ни странно (ты только не удивляйся очень сильно), это есть на следующей станичке...

http://forum.vingrad.ru/index.php?showtopic=20039