Delphi中将数据导入Word的问题，急

Question

当导为Word时，间隔出错：“被呼叫方拒绝接受呼叫”,希望各位大侠指点～～～

Answer 1

unit main;interface//如果要使用CreateOleObject的办法对WORD文档进行操作，应该在uses
//语句中加入Comobj声明和WordXP声明
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Comobj, WordXP, Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
//    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  //把这两个变量声明为全局变量
  FWord: Variant;
  FDoc: Variant;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
FWord.Selection.TypeParagraph;
FWord.Selection.TypeText(Text := form1.Edit1.Text);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//首先创建对象，如果出现异常就作出提示
try
FWord := CreateOleObject('Word.Application');
//WORD程序的执行是否可见，值为False时程序在后台执行
FWord.Visible := False;
except
ShowMessage('创建word对象失败！');
Exit;
end;//先在打开的Word中创建一个新的页面，然后在其中键入"Hello,"+回车＋"World！"
try
FDoc := FWord.Documents.Add;
FWord.Selection.TypeText(Text := 'Hello，');
FWord.Selection.TypeParagraph;
FWord.Selection.TypeText(Text := 'World! ');except
on e: Exception do
ShowMessage(e.Message);
end;
end;//在程序关闭时把文件内容保存到当前目录中，并以test.doc命名
//同时关闭WORD程序
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FDoc.SaveAs(ExtractFilePath(application.ExeName) +'test.doc');
FWord.Quit; 
FWord := Unassigned;
end;end.

Answer 2

差不多就是楼上这样写的，但是当连续将数据写入word里时，就出现我的问题了，不知道如何解决。

Answer 3

就是在向word中插入表格和图，连续插入数量比较大时候就出错。太多长了，没办法帖。
而且单个插入表格和图时候都正确的，感觉是delphi要延时操作，等word写好以后在继续插。

Answer 4

这个问题我可是用了200分！
http://community.csdn.net/Expert/topic/3618/3618133.xml?temp=.1452753