在delphi中如何内嵌word?

Step1： 创建WordApplication对象，如下：
函数CreateCOMObject将根据指定的ClassID创建对应的COM自动对象，声明如下：
//unit COMObj
function CreateCOMObject(const ClassID: TGUID): IUnknown;
在本例中，我们创建WordApplication对象的代码如下：

// 引用COMObj单元和Word_TLB单元
uses
..., ..., ..., COMObj, Word_TLB;
type
TfmMain = class(TForm)
...
...
private
// 声明一个变量，保存WordApplication的引用
// WordApplication在Word_TLB单元中声明
WordApp: WordApplication;
protected
procedure StartWordApp;
procedure TerminateWordApp;
end;
其中StartWordApp方法将分别创建一个WordApplication对象，
实现如下：
procedure TfmMain.StartWordApp;
begin
if not Assigned(WordApp) then
try
// 创建WordApplication对象
WordApp:=CreateCOMObject(CLASS_WordApplication) as WordApplication;
with WordApp do
begin
// 指定COM对象的属性