這是word的

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,comobj, Word_TLB, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

r1,r2,ARange,wrd,Doc,wrdToHtml:variant;

i,pagecount:integer;

begin

wrd:=createoleobject('word.Application');

wrd.visible:=false;

pagecount:=0;

try

Doc := Wrd.Documents.open('c:/2002.doc');

//wrd.ActiveDocument.SaveAs('c:/2002.htm',wdFormatHTML); // 另存為一個htm

pagecount:=wrd.selection.information[wdNumberOfPagesInDocument];

if pagecount> 0 then

begin

for i:=1 to pagecount do

begin

r1:=doc.goto(wdGotoPage,wdGoToAbsolute,i);

r2:=r1.GoToNext(wdGotoPage);

if r1.start=r2.start then

r2.start:=doc.range.end;

doc.Range(r1.start,r2.start).copy;

//doc.Range(r1.start,r2.start).saveas('c:/2002.htm',wdFormatHTML);

wrdToHtml:=createoleobject('word.Application');

wrdToHtml.Documents.Add( '',False);

wrdToHtml.Selection.Paste;

wrdToHtml.ActiveDocument.SaveAs('c:/'+inttostr(i)+'.htm',wdFormatHTML);

wrdToHtml.Quit(False) ;

end;

end;

finally

Doc.Close(false) ;

Wrd.Quit(False) ;

end;

end;

end.

這是powerpoint的

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, MSPpt2000, OleServer,office2000;

type

TForm1 = class(TForm)

PowerPointApplication1: TPowerPointApplication;

PowerPointPresentation1: TPowerPointPresentation;

PowerPointSlide1: TPowerPointSlide;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

i,slidecount:integer;

begin

PowerPointPresentation1.ConnectTo(PowerPointApplication1.Presentations.Open('c:/1.ppt',msoFalse, msoFalse, msoFalse));

slidecount:=PowerPointPresentation1.Slides.Count ;

//PowerPointPresentation1.SaveAs('c:/1.htm',ppSaveAsHTML,msoTrue);

if slidecount>0 then

for i:=1 to slidecount do

begin

PowerPointSlide1.ConnectTo(PowerPointPresentation1.Slides.Item(1));

PowerPointPresentation1.PublishObjects.Item(1).FileName :='c:/'+inttostr(i)+'.htm';

PowerPointPresentation1.PublishObjects.Item(1).SourceType :=ppPublishSlideRange;

PowerPointPresentation1.PublishObjects.Item(1).RangeStart :=i;

PowerPointPresentation1.PublishObjects.Item(1).RangeEnd:=i;

PowerPointPresentation1.PublishObjects.Item(1).Publish ;

end;

PowerPointSlide1.Disconnect ;

PowerPointPresentation1.Disconnect ;

PowerPointApplication1.Disconnect ;

end;

end.

總結

以上是生活随笔為你收集整理的delphi保存为html文件,如何在程序中将powerpoint生成html页面。就是和在powerpoint另存为html格式的一样(120分)...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。