如何在 Delphi 的 OLE 自动化过程中使 Word 不可见

Question

在我们的应用程序中，我们使用 OLE 自动化来构建相当复杂的 Word 文档。我想在制作文档时使Word不可见，因为有很多粘贴和插入需要相当长的时间。

我使用以下代码建立 Word 连接：

function ConnectToWord : TWordAutomationResult;
begin
  WordApp := TWordApplication.Create(nil);

  try
    WordApp.Connect;
    WordApp.Visible := false; 
  except on E: Exception do
    begin
      Result := waeErrorConnectingToWord;
      exit;
    end;
  end;
end;      

我使用以下代码打开现有文档，然后由我的应用程序编辑该文档。

function TWordAUtomation.OpenDocument(aFileName: string) : WordDocument;
var vFileName,
    vConfirmConversions,
    vReadOnly,
    vAddToRecentFiles,
    vPasswordDocument,
    vPasswordTemplate,
    vRevert,
    vWritePasswordDocument,
    vWritePasswordTemplate,
    vFormat,
    vEncoding,
    vVisible,
    vOpenConflictDocument,
    vOpenAndRepair,
    vWdDocumentDirection,
    vNoEncodingDialog  : OleVariant;
begin
  Result := nil;
  if not FileExists(aFileName) then exit;

  vFileName                := aFileName;
  vConfirmConversions      := True;
  vReadOnly                := False;
  vAddToRecentFiles        := False;
  vPasswordDocument        := EmptyParam;
  vPasswordTemplate        := EmptyParam;
  vRevert                  := True; 
  vWritePasswordDocument   := EmptyParam;
  vWritePasswordTemplate   := EmptyParam;
  vFormat                  := wdOpenFormatAuto;
  vEncoding                := EmptyParam;
  vVisible                 := False; //Document should be invisible
  vOpenConflictDocument    := EmptyParam;
  vOpenAndRepair           := EmptyParam;
  vWdDocumentDirection     := EmptyParam;
  vNoEncodingDialog        := EmptyParam;

  Result := WordApp.Documents.Open(vFileName, vConfirmConversions, vReadOnly, vAddToRecentFiles, vPasswordDocument, vPasswordTemplate, vRevert, vWritePasswordDocument, vWritePasswordTemplate, vFormat, vEncoding, vVisible, vOpenAndRepair, vWdDocumentDirection, vNoEncodingDialog);
end;

它可以在我的电脑上运行！ (TM)

对于我们的一些客户，Word 在编辑过程中仍然可见。这可能有哪些原因呢？据我所知，使用某种远程计算（例如托管客户端等）的客户会出现问题。是否有一些附加属性可以处理仅在远程桌面连接等期间有效的应用程序可见性？我对这些事情不是很了解:-(

Answer 1

我正在维护我们软件的 Word 自动化，并且还收到了 Citrix 客户端中弹出 Word 窗口的报告。我不知道是什么原因导致这种情况以及如何消除它。

只有一种方法可以模拟 Word 再次可见，那就是在应用程序处理时打开 Word 文档。但我不认为这是你的问题的原因。

PS：您调用 TWordApplication.Connect，然后将 Visible 设置为 False。请注意，当您调用 Connect 并且未更改 ConnectKind 时，它将连接到正在运行的 Word 实例。当您的客户正在编辑文档时，该文档会突然消失。也许最好将 ConnectKind 设置为 NewInstance，以便您始终在新的 winword.exe 进程中工作。现有的 winword.exe 仍可供您的客户使用，并且在您的应用程序处理其他文档时，他可以继续处理他的文档。

当然，这种方法也有一些缺点：

• 当您的客户端打开一个新的 Word 文档时，它会在您的 Word 实例中打开
• 您可能会在 Normal.dot 被另一个应用程序修改时出现错误

Answer 2

不要使用 TWordApplication，而是使用 CreateOLEObject：

var WordApp: Variant;

procedure OpenWordFIle( const Filename: String );
begin
  WordApp := CreateOLEObject('Word.Application');
  WordApp.Visible := False;
  WordApp.Documents.Open( Filename );
  Application.ProcessMessages;
end;

优雅地关闭它：

procedure CloseWordFile;
begin
   WordApp.ActiveDocument.Close( $00000000 );
   WordApp.Quit;
   WordApp := unassigned;
end;

如果您不关闭它，即使您关闭了 Delphi 应用程序，Word 应用程序也会打开。

一些有用的资源，您可以在其中找到更多打开/关闭 Word 文件的选项：

http://msdn.microsoft.com/en-us/library/office/ff835182.aspx

如何调用 Documents.open 并避免出现“文件正在使用”对话框？

Answer 3

就我而言，情况与您描述的类似。我看起来即使您断开连接，应用程序仍在运行。第一次它不会显示，但是一旦您第二次打开，该应用程序就会可见。就我而言，它有助于明确地退出应用程序。它退出的只是在后台执行工作的实例。本地用户编辑的另一个打开的文档将不会被触及。

WordDocument.Disconnect;
**WordApplication.Quit;**
WordApplication.Disconnect;