static DWORD CALLBACK MyStreamOutCallback(DWORD dwCookie, LPBYTE pbBuff, LONG cb, LONG *pcb)
{
    CFile* pFile = (CFile*) dwCookie;
    pFile->Write(pbBuff, cb);
    *pcb = cb;
    return 0;
}

void CKTLXFunction::OnBnClickedIssuePaper()
{
    // TODO: Add your control notification handler code here
    CString sText;
    m_richEdit.GetWindowText(sText);
    if (sText.IsEmpty() && m_sImportPaperPath.IsEmpty())
    {
        AfxMessageBox("內容為空");
        return;
    }

    CString sImportRtfPath = CCommonFun::GetExecutablePath() + "temp.rtf";
    if (CFileFind().FindFile(sImportRtfPath))
    {
        ::DeleteFile(sImportRtfPath);
    }

    CFile cFile(TEXT(sImportRtfPath), CFile::modeCreate|CFile::modeWrite);
    EDITSTREAM es;
    es.dwCookie = (DWORD) &cFile; //設置用例參數,以便回調函數調用
    es.pfnCallback = MyStreamOutCallback;
    m_richEdit.StreamOut(SF_RTF, es);
}

    // 保存html文件 [8/12/2013 dell]
    _Application WordApp;
    CoInitialize(NULL);
    if(!WordApp.CreateDispatch("Word.Application",NULL))
    {
        //AfxMessageBox("創建Word服務失敗!");
        exit(1);
        return FALSE;
    }
    WordApp.SetVisible(FALSE);

    COleVariant vTrue((short)TRUE),vFalse((short)FALSE),vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    CString  m_sImportRtfPath = CCommonFun::GetExecutablePath() + "temp.rtf";
    if (!CFileFind().FindFile(m_sImportRtfPath))
    {
        LOG("轉換html文件失敗，沒有找到rtf文件 ： %s", m_sImportRtfPath);
        return FALSE;
    }
    Documents docs=WordApp.GetDocuments();
    docs.Open(COleVariant(m_sImportRtfPath),
        vFalse,vFalse,vFalse,COleVariant(""),COleVariant(""),
        vFalse,COleVariant(""),COleVariant(""),
        COleVariant((short)0),COleVariant("UTF-8")
        ,vTrue,vFalse,COleVariant((short)0),vFalse,
        COleVariant(""));

    _Document active_doc; 
    active_doc = WordApp.GetActiveDocument();

    active_doc.SaveAs(COleVariant("保存html文件路徑"), 
        COleVariant((short)wdFormatHTML),
        vFalse, COleVariant(""),vFalse, COleVariant(""),
        vFalse,vTrue,vFalse,vFalse,vFalse,COleVariant("936"),//COleVariant(L"UTF-8")
        vFalse,vFalse,COleVariant((short)0),vFalse);

    WordApp.Quit(vOpt, vOpt, vOpt);