就这么一句都没法执行，一旦执行，cpu就占到99％左右，然后就是等待，没结果，咋弄？

Question

   try
    WordApp := GetActiveOleObject('Word.Application');//在此每次都提示错误
  except
    //未运行则运行之
    WordApp := CreateOleObject('Word.Application');//但在此缺能执行
  end;
    WordApp.Visible:=True; 
    WordDoc:=WordApp.Documents.Add;    //try
    //  Wordapplication.Connect;//关键的一步就是过不去，但是屏蔽了还是
//能打开word？？？？？？？？？？？？？？？？？？
   // except
    //  MessageDlg('Word may not be installed', mtError, [mbOk], 0);
    //  Abort;
    //end;
    //Wordapplication.Visible := True;
    //WordApplication.Caption := 'Delphi automation';
    除了在我公司电脑上，还在同事电脑，个人电脑都试过，非常简单的这一句，所以就出现了调用后，cpu就占到99％左右，然后就是等待，没结果，程序就也不动了，咋弄？

Answer 1

if not  GetActiveOleObject('Word.Application') then
    WordApp := CreateOleObject('Word.Application');//但在此缺能执行

Answer 2

      Wordapplication.Connect;//关键的一步就是过不去，但是屏蔽了还是
能打开word？？？？？？？？？？？？？？？？？？
    最简单的方法，让Wordapplication1是控件属性连接，设Connect：＝true就不能启动？if not  GetActiveOleObject('Word.Application') then
    WordApp := CreateOleObject('Word.Application');
关于这句问题不大，在编译状态下报错，但是不影响程序的继续执行，在执行文件中运行就没有这个报错信息