delphi调用WORD

最新推荐文章于 2020-07-20 01:06:20 发布

retry

最新推荐文章于 2020-07-20 01:06:20 发布

阅读量734

点赞数

分类专栏：学习类文章标签： delphi forms windows class

本文链接：https://blog.csdn.net/jac3326/article/details/7303707

版权

学习类专栏收录该内容

1 篇文章 0 订阅

订阅专栏

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.