Примеры работы с ms word

uses 
ComObj; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
WApp, NewDoc, WordTable: OLEVariant; 
iRows, iCols, iGridRows, jGridCols: Integer; 
begin 
try 
WordApp := CreateOleObject('Word.Application'); 
except 
// обработка ошибок
Exit; 
end; 
WordApp.Visible := True; 

// Создаем новый документ
NewDoc := WordApp.Documents.Add; 


iCols := StringGrid1.ColCount; 
iRows := StringGrid1.RowCount; 

WordTable := NewDoc.Tables.Add(WApp.Selection.Range, iCols, iRows); 

for iGridRows := 1 to iRows do 
for jGridCols := 1 to iCols do 
WordTable.Cell(iGridRows, jGridCols).Range.Text := 
StringGrid1.Cells[jGridCols - 1, iGridRows - 1]; 
… … …

1. 
   
   Заключение
   

В данной статье приведены основные сведения по работе с MS Office и MS Word в частности. Представленная здесь справочная информация по объектной модели MS Word не является полной, однако её достаточно для выполнения довольно сложных задач по созданию и форматированию документов MS Word. Дополнительную информацию по объектным моделям приложений пакета MS Office можно найти в справочном руководстве, которое поставляется с этим пакетом или в сети Интернет. Данная статья не затрагивает внутренние механизмы функционирования технологии OLE Automation, поэтому сведения по COM – технологии здесь не приводятся.

1. 
   
   Литература
   

При подготовке данной статьи были использованы:

1). Избачков Ю. С., Петров В. Н. Информационные системы: Учебник для вузов. 2-е изд. – СПБ.: Питер, 2005. – 656 с.: ил.

2). Архангельский А. Я. Программирование в Delphi 7. – М.: ООО «Бином-Пресс», 2003 г. – 1152 с.: ил.

3). DRKB v.2.3 (www.drkb.ru)