MS Word OLE-如何在不引发异常的情况下访问ActiveDocument?

这个异常是由自动化服务器本身引发的,您不能阻止它。但是你可以得到一个开放的计数 Documents 访问之前 ActiveDocument ;

WordApplication.Documents.Count

如果“count”为0,则表示没有可用的文档。

编辑: 或者,您可以静默地处理特定的异常,例如(delphi代码);

function ActiveDocumentExists(WordApplication: Variant): Boolean;
begin
  Result := True;
  try
    WordApplication.ActiveDocument.Activate;
  except on E: EOleException do
    if E.ErrorCode = LRESULT($800A1098) then
      Result := False;
  end;
end;