안녕하세요..

델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다.



파워포인트나, 엑셀. 워드 변환 문제는 전 이런 식으로 알아내거든요..



프로그램에 보면 매크로들이 다 있잖아요.

자기가 원하시는 작업을 매크로로 만드신 후 매크로 부분에 편집이란 걸로 확인하시면 VB 코드가 만들어져 있어요..



이 VB 코드를 델파이로 포팅 시키시면 해결이 다 돼더라구요..



다음은 HTML 형식으로 저장하는 방식입니다.. 참고하세요..



unit Unit1;



interface



uses

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

StdCtrls, ComObj;



const

ppSaveAsPresentation = $00000001;

ppSaveAsPowerPoint7 = $00000002;

ppSaveAsPowerPoint4 = $00000003;

ppSaveAsPowerPoint3 = $00000004;

ppSaveAsTemplate = $00000005;

ppSaveAsRTF = $00000006;

ppSaveAsShow = $00000007;

ppSaveAsAddIn = $00000008;

ppSaveAsWizard = $00000009;

ppSaveAsPowerPoint4FarEast = $0000000A;

ppSaveAsDefault = $0000000B;

ppSaveAsHtml = $0000000C;



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

msppt : variant ;

begin

msppt := CreateOleObject('Powerpoint.Application') ;

msppt.visible := true ;

msppt.Presentations.open('D:프로젝트문서참고kick-off.ppt') ;

msppt.ActivePresentation.SaveAs('D:kick-off.html',ppSaveAsHTML,False);

msppt.Quit;

end;



end.





한대필 wrote:

>

> 안녕들 하십니까?

> 정말로 어려운 난관에 부딪쳤습니다.

> 제실력으로는 도데체 답이 없습니다.

> 알려 주십시요..

>

> 델파이에서 파워포인트를 실행시켜 화일오픈하는것 까지는

> 이곳 Q n A 보고 해결 했습니다.

>

> 그! 러! 나!

>

> 그 오픈한 화일을 파워포인트 메뉴에 있는

> 'HTML형식으로 저장하기'를 구현해야 합니다.

>

> 이런 난감할 때가 없습니다.

> 알려 주십시요.. 미리 감사드립니다.