How to retrieve the name of an Office document that contains an MFC ActiveX control

Application.ActiveWorkBook.ActiveSheet.Name
				

Application.ActiveDocument.Name
				

void CMyActiveXCtrl::GettheNameofContainerDocument()
{
IMoniker* ptrfullMoniker = NULL;
char objectname[300];
LPOLESTR ppszDisplaynamefull;
IBindCtx* pbcfull = NULL;

LPOLECLIENTSITE pOleClientSite = GetClientSite();

if(pOleClientSite)
{
 pOleClientSite->AddRef();
 if(SUCCEEDED(pOleClientSite->GetMoniker(OLEGETMONIKER_FORCEASSIGN,         
                              OLEWHICHMK_OBJFULL, &ptrfullMoniker)))<BR/>
    // The typedefs for OLEGETMONIKER and OLWHICHMK are in oleidl.h
 {
  if (SUCCEEDED(CreateBindCtx( 0, &pbcfull )))
  {
   if(SUCCEEDED(ptrfullMoniker->GetDisplayName(pbcfull,NULL,<BR/>
                                           &ppszDisplaynamefull)))
   {
	wcstombs(objectname,ppszDisplaynamefull,300);
	AfxMessageBox(ExtractDocumentName(objectname));
	ptrfullMoniker->Release();
   }
  }
  pbcfull->Release();
 }
 pOleClientSite->Release();
}
}

char* CMyActiveXCtrl::ExtractDocumentName(char* objectname)
{
 char* ptrchar;
 char* ptrdocname;
 //reverse the string
 ptrchar = _strrev(objectname);
 //Ignore the first token , this is the name of the embedded object
 strtok(ptrchar,"!");
 //get the remainder of the string and reverse it to get the Document name
 ptrdocname = strrev(strtok(NULL,"\0"));
 return ptrdocname;
}