delp控制Word

我将我的商用《旅行社管理系统》的 发团通知 部分奉献给您，望对您有所帮助。
procedure TFrmMain.N327Click(Sender: TObject);
var
FWord :Variant;
FDoc :Variant;
strSQL :string;
begin
//首先创造对象,如果出现异常就做出提示
try
 FWord := CreateOleObject('Word.Application');
 //WOrd程序的执行是否可见，值为false时，程序在后台运行。
 FWord.Visible := True;
except
 messagebox(0,'创建word对象失败！','警告',MB_OK+MB_ICONINFORMATION);
 exit;
end;

strSQL :='select * From "B_T_Company_Infor"';
with dm.ClientDataSet_Temp do
begin
 if Active then Active:=False;
 CommandText:=strSQL;
 Open;
end;

//现在打开的Word中，创建一个新的页面，然后在其中键入需要的内容
try
 FDOC :=FWord.Documents.Add;
 {对于Word的新页面}
 FWord.Selection.Font.Name :='宋体';
 FWord.Selection.Font.Size :=20;
 FWord.Selection.Font.Bold :=2;
 FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter;
 FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString);
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.Typeparagraph;
 FWord.Selection.paragraphs.Alignment := wdAlignParagraphLeft;
 FWord.Selection.Font.Size :=12;
 FWord.Selection.Font.Bold :=0;
 FWord.Selection.TypeText('     现将我社组团部的');
 FWord.Selection.TypeText('                     ');
 FWord.Selection.TypeText('团计划发出，各地请按下列行程做接待，并及早落实'+
'团队计划和选派优秀导游员。各地代订住宿、火车票、机票务必安排好接待，日程'+
'如有变更，及时与下站接待社或本社联系，各地接团时请举【'+
 dm.ClientDataSet_Temp.Fields[0].AsString+'】接站牌。');
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.TypeText('请速回传真确认，谢谢合作！');
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.Typeparagraph;//换行

 FWord.Selection.TypeText('人数：');
 FWord.Selection.TypeText('人数：');
 FWord.Selection.TypeText('国籍：');
 FWord.Selection.TypeText('国籍：');
 FWord.Selection.TypeText('等级：');
 FWord.Selection.TypeText('等级：');
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.TypeText('这里是团队安排');
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.Typeparagraph;//换行

 FWord.Selection.TypeText('TO: ');
 FWord.Selection.TypeText('12345678901234567890');
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.TypeText('TEL: ');
 FWord.Selection.TypeText('12345678901234567890');
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.TypeText('FAX: ');
 FWord.Selection.TypeText('12345678901234567890');
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.TypeText('______________________________________________');
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.TypeText('FROM: ');
 FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString);
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.TypeText('TEL: ');
 FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[3].AsString);
 FWord.Selection.Typeparagraph;//换行
 FWord.Selection.TypeText('FAX: ');
 FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[4].AsString);
 FWord.Selection.Typeparagraph;//换行
Except
 on e: Exception do
 Messagebox(0,Pchar(e.Message),'警告',MB_OK+MB_ICONINFORMATION);
end;
//保存文档
FWord.Caption := '组团计划保存在: '+ExtractFilePath(application.ExeName)+'Reports/GroupPlan.doc';
FDOC.SaveAS(ExtractFilePath(application.ExeName)+'Reports/GroupPlan.doc');
if messagebox(0,'组团计划已经保存成功!'+chr(13)+chr(13)+
'单击【确定】退出Word,返回到程序中!','您确信要退出Word吗？',
MB_YESNO+MB_ICONINFORMATION+MB_DEFBUTTON2)=IDYES then
begin
 FWord.Quit;
 FWord := Unassigned;
end;

end;