导出文字和图片到WORD

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.