unit OfficeForm;  

interface  

uses  
SysUtils, Windows, Messages, Classes, Graphics,  
Controls, Forms, DBCtrls, StdCtrls, DBTables,  
ExtCtrls, Mask, Db, Dialogs, Excel97, Word97,  
OleServer;  

type  
TFormOff = class(TForm)  
DBEdit3: TDBEdit;  
Label3: TLabel;  
Label2: TLabel;  
DBEdit2: TDBEdit;  
DBEdit1: TDBEdit;  
Label1: TLabel;  
DBNavigator1: TDBNavigator;  
Table1: TTable;  
DataSource1: TDataSource;  
BtnWord: TButton;  
BtnExcel: TButton;  
SaveDialog1: TSaveDialog;  
ExcelApplication1: TExcelApplication;  
WordDocument1: TWordDocument;  
procedure BtnWordClick(Sender: TObject);  
procedure BtnExcelClick(Sender: TObject);  
end;  

var  
FormOff: TFormOff;  

implementation  

{$R *.DFM}  

uses  
ComObj, ActiveX;  

procedure TFormOff.BtnWordClick(Sender: TObject);  
var  
Bookmark: TBookmark;  
RangeW: Word97.Range;  
v1: Variant;  
ov1: OleVariant;  
Row1: Word97.Row;  
begin  
WordDocument1.Activate;  
// insert title  
WordDocument1.Range.Text := ''American Capitals from '' + Table1.TableName;  
WordDocument1.Range.Font.Size := 14;  
// disable the UI  
Table1.DisableControls;  
try  
// store the current position  
Bookmark := Table1.GetBookmark;  
try  
// scan the database table  
Table1.First;  
while not Table1.EOF do  
begin  
// send the two fields  
WordDocument1.Range.InsertParagraphAfter;  
WordDocument1.Paragraphs.Last.Range.Text :=  
Table1.FieldByName (''Name'').AsString + #9 +  
Table1.FieldByName (''Capital'').AsString;  
Table1.Next;  
end;  
finally  
// go back to the bookmark and destroy it  
Table1.GotoBookmark (Bookmark);  
Table1.FreeBookmark (Bookmark);  
end;  
finally  
// re-enable the controls  
Table1.EnableControls;  
end;  
RangeW := WordDocument1.Content;  
v1 := RangeW;  
v1.ConvertToTable (#9, 19, 2);  
Row1 := WordDocument1.Tables.Item(1).Rows.Get_First;  
Row1.Range.Bold := 1;  
Row1.Range.Font.Size := 30;  
Row1.Range.InsertParagraphAfter;  
ov1 := '' '';  
Row1.ConvertToText (ov1);  
end;  

procedure TFormOff.BtnExcelClick(Sender: TObject);  
var  
RangeE: Excel97.Range;  
I, Row: Integer;  
Bookmark: TBookmarkStr;  
begin  
// create and show  
ExcelApplication1.Visible [0] := True;  
ExcelA