导出文字和图片到WORD

最新推荐文章于 2023-09-06 14:53:28 发布

lee576

最新推荐文章于 2023-09-06 14:53:28 发布

阅读量3.2k

点赞数

分类专栏： delphi 文章标签：文档 button forms windows 互联网 class

本文链接：https://blog.csdn.net/lee576/article/details/2485745

版权

delphi 专栏收录该内容

152 篇文章 3 订阅

订阅专栏

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ComObj, WordXP, OleServer, ComCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
WordApp: TWordApplication;
WordDoc: TWordDocument;
Template,NewTemplate,DocumentType,Visible:OleVariant;
itemIndex:OleVariant;
fileName:Olevariant;
NoPrompt,OriginalFormat:OleVariant;
RouteDocument,SaveChanges:OleVariant;
LinkToFile, SaveWithDocument:OleVariant;
begin
//指定文档的路径和文件名
savedialog1.FileName :='';
if not savedialog1.Execute then exit;
filename:=savedialog1.FileName ;
//如果该日志的对应Word文档已经存在则提示是否覆盖
if FileExists(fileName)=true then
    begin
      Beep;
      if Application.MessageBox('文档已经存在，是否覆盖？','警告',MB_OKCANCEL)=IDCANCEL then
         exit;
    end;

try
    //连接到Word 2000
    WordApp:=TWordApplication.Create(self);
    WordApp.Connect ;
except
    Beep;
    MessageDlg('不能生成文档，请确认是否安装了Word !',mtError,[mbOK],0);
    exit;
end;
//显示Word 2000

//给调用Add函数使用的实参赋值
Template:=EmptyParam;
NewTemplate:=False;
DocumentType:=wdNewBlankDocument;
Visible:=true;
//调用Add函数
WordApp.Documents.Add(Template,NewTemplate,DocumentType,Visible);
//连接到新建的文档
itemIndex:=1;
WordDoc:=tworddocument.Create(self);
WordDoc.ConnectTo(WordApp.Documents.Item(itemIndex));
//文档另存为
WordDoc.SaveAs(fileName);
//开始向Word文档中写入内容
with WordApp.Selection do
    begin
      Font.Size:=20;
      Font.Bold:=2;
      Paragraphs.Alignment:=wdAlignParagraphCenter;
      TypeText('互联网代收费业务');
      TypeParagraph; //换行
      TypeText('订购流程');
      TypeParagraph;
      TypeParagraph;
      Font.Size:=12;
      Font.Bold:=0;
      Paragraphs.Alignment:=wdAlignParagraphLeft;
      TypeText('一、违规SP--北京星天下');
      TypeParagraph;
      TypeText(richedit1.Text );
      TypeParagraph;
      TypeParagraph;
      TypeText('二、实际拨测步骤    ');
      TypeParagraph;
      TypeText('1.点开初始链接，进入网站注册页面');
      TypeParagraph;
      LinkToFile:=False;
      SaveWithDocument:=True;
      InlineShapes.AddPicture('E:/P3拨测系统/B项目代码/操作WORD/1.jpg',LinkToFile,SaveWithDocument,EmptyParam);
      TypeParagraph;
      TypeParagraph;
      TypeText('2.注册完成后显示');
      TypeParagraph;
      InlineShapes.AddPicture('E:/P3拨测系统/B项目代码/操作WORD/2.jpg',LinkToFile,SaveWithDocument,EmptyParam);
      TypeParagraph;
      TypeParagraph;
    end;

//保存文档
NoPrompt:=false;
OriginalFormat:=wdOriginalDocumentFormat;
WordApp.Documents.Save(NoPrompt,OriginalFormat);
//关闭文档
SaveChanges:=wdSaveChanges;
OriginalFormat:=wdOriginalDocumentFormat;
RouteDocument:=false;
WordApp.Documents.Close(SaveChanges,OriginalFormat,RouteDocument);

Worddoc.Disconnect ;
worddoc.Free;

//断开和Word 2000的连接
WordApp.Disconnect;
WordApp.Quit ;
WordApp.Free ;
MessageDlg('导出成功！保存为'+fileName,mtInformation,[mbOK],0);

end;

end.