你的Delphi社区

运行这个程序后，第一会点按钮，好使，打开了本地的gh.doc文件，并插入了一张图片，把这个word文件关了，再点一次按钮，就会提示rpc服务器不可用，真的很怪啊！！


procedure TForm1.Button1Click(Sender: TObject);
var
  Wordapplication: TWordApplication;
  WordDocument: TWordDocument;
  wjm: string;

  Template, TempFalse, ItemIndex, Filename, FileFormat, SaveChanges, OriginalFormat, RouteDocument: OleVariant;

  readonly: OleVariant;


begin

  Template := EmptyParam;
  TempFalse := false;
  readonly := true;
  ItemIndex := 1;


  Wordapplication := TWordApplication.Create(nil);
  WordDocument := TWordDocument.Create(nil);

  try
    Wordapplication.Connect;
  except
    ShowMessage('无法启动Word。请检查是否已安装。');
    Wordapplication.Free;
    WordDocument.Free;

    exit;
  end;

  wjm := delphi.com/topic_517137_d21f.htm">ExtractFilePath (paramstr(0)) + '\gh.doc';
  FileName := StrPas (pchar(wjm));


  WordApplication.Documents.Open(Filename, Template, readonly, TempFalse, Template, Template, Template, Template, Template, Template, Template, Template, Template, Template, Template);
  WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));

  Wordapplication1.Selection.InlineShapes.AddPicture(ExtractFilePath(paramstr(0)) + 'cjsdl.jpg', Template, Template, Template);
  Wordapplication.Visible := true;
  WordDocument.Disconnect;
  Wordapplication.Disconnect;
  Wordapplication.Free;
  WordDocument.Free;
end;

在初始化段加入OLE初始化语句
关闭一个文档后需要一些延时,
OLE操作总是很慢的,
另外这里WordDocument没用