这是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分)...
