[Automation]Force word.exe process to quit by using VC++

Sometimes, Word.exe process Still Runs After Automation Session ,  it will be still avaliable in Task Mananger.

refer to : http://support.microsoft.com/kb/212675

We have to invoke wordApp.quit to quit the whole application.

The following method is from google search, using VC++ to get the existed WORD.EXE instance, to kill it used by the automation method. Of course, whereelse, you can get the WORD.EXE process directly, and call TerminateProcess.

AfxOleInit(); // it is very neccessary here. or ::CoInitialize(NULL)/CoUninitialize
CLSID   clsid;   
HRESULT   hr;   
hr = ::CLSIDFromProgID(L " Word.Application " ,    & clsid);  // get the CLSID through ProgID
if (FAILED(hr))   
... {   
  AfxMessageBox(_T("NO   OFFICE   INSTALLED!"));   
  return;   
}    
    
IUnknown    * pUnknown = NULL;   
IDispatch    * pDispatch = NULL;   
_Application   app = NULL;   
    
hr = ::GetActiveObject(clsid,NULL, & pUnknown);  // check whether the instance has existed 
if (FAILED(hr))   
... {   
  //AfxMessageBox(_T("No   running   WORD!"));   
  return;   
}    
    
try    
... {   
  hr=pUnknown->QueryInterface(IID_IDispatch,   (LPVOID   *)&app);   
  if(FAILED(hr))   
  throw(_T("Failed   to   get   IDispatchPtr"));   
    
  pUnknown->Release();   
  pUnknown=NULL;   
}    
catch (LPCTSTR   lpErr)   
... {   
  AfxMessageBox(lpErr);   
}    
    
if (pUnknown)   
  pUnknown -> Release();   
    
CComVariant   SaveChanges( false );  //    hint   save   or   not   
CComVariant   OriginalFormat,   RouteDocument;   
app.Quit( & SaveChanges,    & OriginalFormat,    & RouteDocument);   
app.ReleaseDispatch();   
}