Автоматизация Microsoft Office

if(OpenClipboard(GetMainWnd()->GetSafeHwnd()))
{
    HGLOBAL clipbuffer;
    HGLOBAL hglbLocale;
    LCID* pLocId;
    char * buffer;
    try
    {
        EmptyClipboard();
        clipbuffer = GlobalAlloc(GMEM_DDESHARE, tp->value.GetLength()+1);
        if(!clipbuffer) throw(1);
        buffer = (char*)GlobalLock(clipbuffer);
        strcpy(buffer, LPCSTR(tp->value));
        GlobalUnlock(clipbuffer);
        SetClipboardData(CF_TEXT,clipbuffer);
        hglbLocale = GlobalAlloc(GMEM_DDESHARE | GMEM_MOVEABLE,sizeof(LCID));
        if (!hglbLocale) throw(2);
        pLocId= (LCID*)GlobalLock(hglbLocale);
        if (!pLocId)
        {
            GlobalFree(hglbLocale);
            throw(3);
        }
        *pLocId =0x419;
        GlobalUnlock(hglbLocale);
        SetClipboardData(CF_LOCALE, hglbLocale);
    }catch(...)
    {
        AppDump(((CPrivatisationApp*)AfxGetApp())->m_csAppPath+"\\errors.dmp","Îøèáêà áóôåðà îáìåíà");
        GlobalFree(clipbuffer);
        GlobalFree(hglbLocale);
        CloseClipboard();
        continue;   
    }
    GlobalFree(clipbuffer);
    GlobalFree(hglbLocale);
    CloseClipboard();
}
oFind.Execute(COleVariant(tp->name),
    covFalse,               
    covFalse,               
    covFalse,               
    covFalse,               
    covFalse,               
    covTrue,                
    COleVariant(long(2)),   
    covFalse,               
    COleVariant("^c"),          
    COleVariant(short(2)),
    covFalse,
    covFalse,
    covFalse,
    covFalse);
    EmptyClipboard();