本内容有二个示例；
一个是利用ole来控制，没有使用到控件；
procedure TfrmMain.N1Click(Sender: TObject);
var
h:THandle;
rec:trect;
isstyle :LongInt;
begin
try
try
Fword :=GetActiveOleObject('word.application');//判断内存中是否存在此程序
except
FWord :=CreateOleObject('word.Application');
end;
except
ShowMessage('创建失败！');
Exit;
end;
h:=findwindow('OpusApp',nil);
第二个是：直接使用TOleContainer标准控件；
上述二个例子，都在XE2的版本上编译通过，并正常使用；
