안녕하세요 이슬이에요^^

요번에도 ole 땜에 질문합니다.

제가 서버 콤포써서 파워포인트 페이지정보를

알아냈는데 그담이 문제네요

페이지별로 html 로 변환해야 되걸랑요

근데 똑같이 첫번째 페이지로만 저장되니..-.-;

거의 한달째 ole만 하는데 이것만 하면 끝나걸랑요

뭐가문젤까요 소스보시고 도와주세요 ㅠ.ㅠ

uses ComObj;

const

ppSaveAsHtml = $0000000C;

*****************************

var

msppt : Olevariant;

i : integer;

enumfalse : Olevariant;

enumtrue : Olevariant;

begin

enumTrue := True;

enumfalse := false;

if opendialog1.Execute then begin

powerpointapplication1.Connect;

powerpointapplication1.visible := 1 ;

powerpointapplication1.Presentations.Open

(opendialog1.filename,enumfalse,enumfalse,enumtrue);

for i := 1 to powerpointapplication1.ActivePresentation.slides.count do begin

powerpointapplication1.ActivePresentation.Slides.Item (i).Select;

powerpointapplication1.Activepresentation.SaveAs('c:aa'+inttostr(i)+'.htm',ppSaveAsHTML,enumfalse);end;

end;

end;