Сервер занят (word)

_Application app;
Documents oDocs;
_Document oDoc;
COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR);

    if(app == NULL)
    {
        if(!app.CreateDispatch("Word.Application"))
        {
            AfxMessageBox("Îøèáêà ïðè ñòàðòå Word'à");
            return;
        }
    }
 
    app.SetVisible(false);
    oDocs = app.GetDocuments();
 
    oDoc = oDocs.Open(COleVariant("filefrom.doc"),
        vOpt, vOpt, vOpt, vOpt, vOpt, vOpt, vOpt,
        vOpt, vOpt, vOpt, vOpt,
        vOpt, vOpt, vOpt, vOpt);
    
    ReplaceWord("wordfrom", "wordto");
 
    COleVariant covTrue((short)TRUE), covFalse((short)FALSE);
 
    oDoc = app.GetActiveDocument();
 
    oDoc.SaveAs(COleVariant("fileto.doc"),
        COleVariant((short)0),
        covFalse, COleVariant(""), covTrue, COleVariant(""),
        covFalse, covFalse, covFalse, covFalse, covFalse, covFalse, covFalse, covFalse,
        covFalse, covFalse);
 
    oDoc.Close(covFalse, covFalse, covFalse);
    app.Quit(covFalse, covFalse, covFalse);
    app = NULL;

void ReplaceWord(CString find, CString replace)
{
    COleVariant covTrue((short)TRUE), covFalse((short)FALSE);
    Selection oSel;
    oSel = app.GetSelection();
    Find oFind = oSel.GetFind();
    oFind.ClearFormatting();
    oFind.ClearAllFuzzyOptions();
        oFind.Execute(COleVariant(find),    
        covFalse,                               
        covTrue,                                
        covFalse,                               
        covFalse,                               
        covFalse,                               
        covTrue,                                
        COleVariant(short(wdFindContinue)),     
        covFalse,                               
        COleVariant(replace),                   
        covTrue,                                
        covFalse,                               
        covFalse,                           
        covFalse,                           
        covFalse                            
        );
}