WordApp := TWordApplication.Create(Application);
    WordDoc := TWordDocument.Create(Application);1.  WordApp.Visible := False;
2.  WordApp.WindowState := wdWindowStateMaximize;
3.  WordApp.Connect;
若在windows中有一个word时执行这个程序不会出错,但是如果windows中没有word程序的话则执行到1时就会出错,提示是'被呼叫方拒绝接收呼叫'

解决方案 »

  1.   

    如果出错的话,那就换一种方法:在Uses里加入comobj单元var
      wordapp:variant;
    begin
    try
      wordapp:=createoleobject('word.application');
      wordapp.visible:=true;
    finally
      wordapp:=unassigned; 
    end;
    end;
    这段代码可以调出word,可以实现跟你一样的功能
      

  2.   

    那你就根据他返回1,然后屏蔽掉系统的错误,提示她安装Word
      

  3.   

    你的方法应该可以调出WORD的,同意过客
      

  4.   

    WordApp.Connectto(。。);
    var
    itemindex:olevariant;
    itemindex:=1;
    worddoc.connectto(wordapp.document.item(itemindex));试试这个,在网吧,也许代码不对,盲写的,
      

  5.   

    WordApp.Connectto(。。);
    var
    itemindex:olevariant;
    itemindex:=1;
    worddoc.connectto(wordapp.document.item(itemindex));试试这个,在网吧,也许代码不对,盲写的,
      

  6.   

    另外没有必要加入application参数,我昨天在家写了一个,不用加参数,直接create
    WordApp := TWordApplication.Create;
    WordDoc := TWordDocument.Create;
      

  7.   

    同意ghyghost(╔☆→向菜文作者转形←☆╝)