delphi – 如何将参数传递给OLE自动化对象,如MS Word

发布时间：2020-12-15 09:34:04 所属栏目：大数据来源：网络整理

导读：这主要是与Delphi语法相关的问题.我需要在调用OLE对象的方法时将参数设置为True. 我需要在Word Automation中设置(这是从Word Reference开始)： wdApp.Quit SaveChanges:=wdDoNotSaveChanges 作为一个例子我想做的虚拟程序(请注意WordApp.Quit！)： Procedure

这主要是与Delphi语法相关的问题.我需要在调用OLE对象的方法时将参数设置为True.

我需要在Word Automation中设置(这是从Word Reference开始)：

wdApp.Quit SaveChanges:=wdDoNotSaveChanges

作为一个例子我想做的虚拟程序(请注意WordApp.Quit！)：

Procedure GetWordVersion;
    var
      WordApp: OLEVariant;
    begin
      { Create the OLE Object }
      Try
          WordApp := CreateOLEObject('Word.Application');
          WordVersion := WordApp.version;
           WordApp.Quit; // >-- HERE!!!!
      except
        on E: Exception do
        begin
          WordVersion := -1;
        end;
      End;
end;

Here(检查接受的答案)似乎完成了同样的事情,但如果我尝试它：不编译.我这里只复制相关部分：

Const wdDoNotSaveChanges = 0
[...]

  wdo.Quit wdDoNotSaveChanges 

[...]

End Function

重要：
而不是使用

// this is from Word Reference    
wdApp.Quit SaveChanges:=wdDoNotSaveChanges

可以使用

// from Word Reference
wdApp.NormalTemplate.Saved = True

任何人都可以修改我上面的GetWordVersion程序,以便使用上述两种方法中的任何一种吗？谢谢.

解决方法

你可以写：

Wordapp.Quit(调用SaveChanges：= wdDoNotSaveChanges);

或者用这个：

word := CreateOleObject('Word.Application'); 

.... 
word.DisplayAlerts := false;
word.Quit;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!