使用Delphi 7控制Word 2000生成文档的方法

领测软件测试网

    begin
      Beep;
      if Application.MessageBox(’文档已经存在，是否覆盖？’,’警告’,MB_OKCANCEL)=IDCANCEL then
        Abort;
    end;
  //测试当前是否运行了Word 2000
  try
    V:=GetActiveOleObject(’Word.Application’);
  except
    //未运行则运行之
    V:=CreateOleObject(’Word.Basic’);
  end;
  try
    //连接到Word 2000
    WordApp.Connect;
  except
    Beep;
    MessageDlg(’不能生成文档，请确认是否安装了Word 2000！’,mtError,[mbOK],0);
    Abort;
  end;
  //显示Word 2000
  WordApp.Visible:=true;
  //给调用Add函数使用的实参赋值
  Template:=EmptyParam;

文章来源于领测软件测试网 https://www.ltesting.net/