delphi调用WORD
来源:互联网 发布:人工智能的危害 编辑:程序博客网 时间:2024/06/07 14:44
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Word2000, OleServer, StdCtrls, OleCtnrs;
type
TForm1 = class(TForm)
WordDoc1: TWordDocument;
WordApp1: TWordApplication;
btn1: TButton;
scrlbx1: TScrollBox;
olcntnr1: TOleContainer;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
filename:OleVariant;
begin
try
WordApp1.Connect;
except
ShowMessage('WORD没有正确安装!');
exit;
end;
filename:='E:\table.doc';
WordDoc1.Connect;
WordDoc1.Content.Text:='利用Delphi绘制表格';
WordDoc1.SaveAs(filename);
olcntnr1.CreateLinkToFile('E:\table.doc',False);
end;
end.
- Delphi调用Word
- delphi调用WORD
- 调用word
- 调用word
- delphi 调用
- Delphi与Word 举例
- delphi word技术融合
- Delphi与Word
- Delphi+Word解决方案参考
- delphi操作word
- delphi操作word
- DELPHI 打开WORD文档
- delphi操作word
- delphi word使用
- delphi操作word
- delphi操作word
- delphi操作word
- Delphi中编辑word
- java 动态代理深度学习(Proxy,InvocationHandler),含$Proxy0源码
- jsp添加新的servlet处理代码
- linux FTP配置详解
- Java泛型总结
- ios push实现的简单实现步骤
- delphi调用WORD
- java中求一个字符串中大小写字母及非英文字母的个数
- 有用的句子
- ServletContextListener
- 有用的句子
- 数据的导入导出
- 难得和你相遇,用来生气多可惜
- macrovision
- Android的消息机制