首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

怎么向嵌入VC窗体中的word添加内容

2012-12-29 
如何向嵌入VC窗体中的word添加内容项目是这样的,需要在VC界面中嵌入WORD界面,要嵌入,两个界面在一起,我在V

如何向嵌入VC窗体中的word添加内容
项目是这样的,需要在VC界面中嵌入WORD界面,要嵌入,两个界面在一起,我在VC下引入了WORD的类型库,创建的项目是单文档容器。下面是我嵌入WORD界面的程序
    void CwordtestView::EmbedAutomateWord(void)
{
   BeginWaitCursor();   
   CwordtestCntrItem*   pItem   =NULL;   
   TRY   
   {   
   CwordtestDoc*   pDoc   =GetDocument();   
   ASSERT_VALID(pDoc);   
   pItem   =   new  CwordtestCntrItem(pDoc);   
   ASSERT_VALID(pItem); 
       CLSID   clsid;   
   if(FAILED(::CLSIDFromProgID(L"Word.document",&clsid)))   //由 ProgID 得到 CLSID 
   AfxThrowMemoryException();   
   if(!pItem->CreateNewItem(clsid))        
   AfxThrowMemoryException();   
   ASSERT_VALID(pItem);   
   pItem->DoVerb(OLEIVERB_SHOW,this);   
   m_pSelection   =   pItem;   
   pDoc->UpdateAllViews(NULL);   
   LPDISPATCH   lpDisp;   
   lpDisp=pItem->GetIDispatch();   
   }   
   CATCH(CException,   e)   
   {   
   if   (pItem   !=   NULL)   
   {   
   ASSERT_VALID(pItem);   
   pItem->Delete();   
   }   
   AfxMessageBox(IDP_FAILED_TO_CREATE);   
   }   
   END_CATCH   
   EndWaitCursor();   
}
现在word界面嵌入进去了,我想能像word界面中添加内容,我该怎么做?  
[解决办法]
建议不要使用office程序直接打开文档,而是使用自己可以控制的控件打开文档

推荐自己的一个作品:http://blog.csdn.net/wolfwaretech,当让还有很多类似的控件

热点排行