var wordApp   : TWordApplication;//打开word
procedure ShowDoc(ACaption: String; AUserName: String; APathName: String);
var
  templateName: OleVariant;
  newTemplate : OLeVariant;
begin
  templateName := APathName;
  try
    wordApp.Connect();
  except
    SFASHOWMESSAGE('您的计算机上还未安装Microsoft Office Word97或更高的版本!');
    Abort;
  end;
  newTemplate := False;
  wordApp.Documents.AddOld(templateName, newTemplate);
  wordApp.Caption := ACaption;  wordApp.UserName := AUserName;
  wordApp.WindowState := 1;       //最大化
  wordApp.Visible := True;
  wordApp.Activate;  wordApp.Disconnect();
end;

解决方案 »

  1.   

    wordApp.Disconnect();
    wordApp.Close;
    wordApp := UnSigned;
      

  2.   

    老大
    var wordApp   : TWordApplication;wordApp怎样才能调用以下的两个方法
    wordApp.Close;
    wordApp.Unassigned ;
      

  3.   

    免费使用
    免费升级超越水晶报表,是我们的目标
    彻底解除程序员负担,极大提高用户设定灵活性
    LLanV报表工具,经过了10000行以上数据的压力测试,性能优良!其中一部分功能如下:  
    1.支持资料卡(比如:个人简历),表单(比如:销售定单),报表(比如:销售月报表)的预览打印
    2.不用任何设定,就可以默认产生专业的页面
    3.用户可以一次性设定企业标准样式(比如:公司标志,台头)
    4.支持文本,线条,方框,图片,等报表元素
    5.对各报表元素和报表区域等提供丰富的属性
    6.用户可以在运行期间编辑文本,线条,方框,图片,明细列, 操作简单
    7.支持同一列相同数据合并成一个格
    8.可以在运行期间增删,调换明细列
    9.提供多种报表风格
    10.支持页合计,总计
    11.支持的套打报表
    12.支持MIS开发的各种开发工具:如VC、VB、Delphi等
    13.可以直接连接数据库
    14.用户可以把设定后的报表样式保存为报表样式文件
    15.报表头和报表尾均可多于一页
    16.报表样式文件格式完全开放
    17.可以实现中国式复杂报表样式
    18.无须编程请发EMAIL给[email protected]
      

  4.   

    WordApplication1.Quit();
     WordApplication1.Disconnect;
       
     Except
       on e:Exception do
       begin
        ShowMessage(e.Message);
        WordApplication1.Disconnect;
        end;
      

  5.   

    对于保存文件我还是推荐savedialog控件,关闭用wordApp.Close.