delphi - 手动关闭 Word 应用程序后调用它会产生 "RPC server is unavailable"错误

Question

我的表单上有名为 App 的 TWordApplication 组件。其 ConnectKind 属性设置为 ckRunningOrNew，AutoConnect 属性设置为 True。当我的程序完成时，Word 窗口出现在屏幕上，完成一些任务后我将其关闭。即使我调用 Disconnect，下次调用 App 也会产生主题错误。

procedure ReportButtonClick(Sender: TObject);
var
  Doc: _Document;
  { Some other variables }
begin
  App.Disconnect; // calling after closing produces error
  App.Connect;
  Doc := App.Documents.Add('path_to_template', EmptyParam, EmptyParam, EmptyParam);
  { Working with Doc }
  App.Visible := True;
end;

很明显我不应该关闭 Word，但我的客户认为保持 Word 始终打开对他们来说并不方便。我 try catch 异常但没有成功。

遇到这种情况我该如何处理？

Answer 1

使用 D7 和 Word2007，以下代码可阻止用户通过单击标题栏上的 [x] 或菜单中的“关闭”来关闭 MS Word:

procedure TDefaultForm.WordApplication1DocumentBeforeClose(ASender: TObject;
    const Doc: _Document; var Cancel: WordBool);
begin
  Cancel := True;
end;

，但显然您希望让用户知道为什么会发生这种情况。

但是，如果 Word 中没有打开文档，则不会阻止其关闭。

作为阻止 Word 关闭的替代方法，显然您可以禁用应用程序的 Word 自动化功能、完成正在进行的任何操作或完全关闭应用程序。我假设您知道如何在 Word 中获取事件文档、当前文本选择等。