OLE方式创建Word对象。
   try
      wordapp := CreateOleObject('word.Application');
      wordapp.visible := false;
      wordbook := wordapp.documents.Add;
    except
      application.MessageBox('您的机器里未安装Microsoft Word 2000!', '错误', 0);
      Exit;
    end;
    .....在我的机上编译运行一切都正常。
但是编译完的程序在几个同事的机上都不能正常运行。
发现是“wordapp := CreateOleObject('word.Application');”有错误。
可是类似的Excel代码“eclapp := CreateOleObject('Excel.Application');”在同事机上却可以正常。是什么问题呢?

解决方案 »

  1.   

    CreateOleObject是区分大小写地(创建com对象)
      

  2.   

    已经改成了“Word.Application”
    别人机上还是会出错。。
      

  3.   

    是的,我们的Word版本是相同的。
      

  4.   

    把try ... except去掉,看看具体报什么错
      

  5.   

    好熟悉的错误,经常是呈不规律出现,在google或baidu上搜一搜,下面也给个查到的连接:
    http://book.77169.org/data/web5307/20050228/20050228__3618133.html
    里面提到了try三次的解决方式,供参考。
    估计更详细的原因得问borland或microsoft了,呵呵
      

  6.   

    呵呵~~
    我经常碰到这个错误,还有什么“RPC服务器不可用”这样的错误
    我感觉是Word没有正确释放(看看你是不是已经释放Word了)
    你看看任务管理器是不是还有WinWord的进程,要是有的话先把它关掉
    然后再试试,我就是这样解决的现在没有问题了