博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
delphi 操作word文件(一)
阅读量:6573 次
发布时间:2019-06-24

本文共 620 字,大约阅读时间需要 2 分钟。

hot3.png

procedure TForm1.initWord();

var template,newtemplate,itemindex:olevariant;
begin
  try
      wordapplication1.Connect;
   except
      wordapplication1.Disconnect;
      messagedlg('请先安装Word软件!',mterror,[mbok],0);
      exit;
   end;
   newtemplate:=false;
   itemindex:=1;
   wordapplication1.Visible:=false;
   template:=ExtractFileDir(Application.Exename) +'模板.dot';
   wordapplication1.Documents.Add(template,newtemplate,emptyparam,emptyparam);
   worddocument1.ConnectTo(wordapplication1.Documents.Item(itemindex));
    end;
procedure TForm1.unitWord();
begin
  worddocument1.Close;
   wordapplication1.Disconnect;
end;

转载于:https://my.oschina.net/jingshishengxu/blog/684198

你可能感兴趣的文章
CentOS之crontab
查看>>
【在线研讨-现场文字】《敏捷开发用户故事分类与组织结构(二期-3)》2012-07-03...
查看>>
Hyper-V 2012 R2 配置存储QoS
查看>>
易语言 --什么情况下 用许可证
查看>>
项目总结:凡事预则立,不预则废!
查看>>
ORA-32004: obsolete and/or deprecated parameter(s)
查看>>
建属于自己的网站
查看>>
[linux] ubuntu 切换默认的/bin/sh
查看>>
Web Bench (网站压力测试工具)
查看>>
boost库之智能指针
查看>>
linux c/c++ GDB教程详解(转载)
查看>>
华为HCIE 面试战报
查看>>
C++ 一些知名的库
查看>>
用busybox创建一个不足50M的Linux
查看>>
在redhat server 6 安装gcc-4.5.2
查看>>
我的友情链接
查看>>
自定义View Client 登录方式(一)
查看>>
rsync搭建使用
查看>>
一台服务器上同时运行多个MySQL
查看>>
cenOS+nginx+php+mysql (非一键包安装)
查看>>