MS 워드를 사용하여 HTML로 변환하려구 합니다.



다음과 같이..



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;





//---------------------------------

MsWord := CreateOleObject('Word.Application');

MsWord.Visible := False;



MsWord.Documents.Open(m_sTempFileName);

MsWord.ActiveDocument.SaveAs(HTMLpath+m_sHTMLFileName,ppSaveAsHTML,False);

MsWord.ActiveDocument.Close;

//-----------------------------------------------------------------------------

하기는 했는데..



MsWord.ActiveDocument.SaveAs(HTMLpath+m_sHTMLFileName,ppSaveAsHTML,False);

문장에서.. 저장이 되긴 하는데.. 이상하게 되더군요.. 깨져서요..



어떻게 해야할 지요..