我想要在对话框模式下嵌入Word视窗,请问高手该怎么做!!! 我想在对话框上实现word加一个控件,实现Word的环境,就相当于是在Word下输入,并且右键会弹出Word菜单,请问高手怎么才能实现!!!有没有类似的例子! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 com 可以的。从工程-》组件 中插入没有 就自己创建 对象。 http://www.vckbase.com/document/finddoc.asp?keyword=Word VC知识库上的东西我试了一下了,好像没有很实用的啊有个例子xoffice_src又运行不起来各位帮帮忙,俺不太明白呢 通常有两种方法,先嵌入网页控件,再把word嵌入到网页控件中;另外的方法是OLE嵌入,我现在有一篇关于MFC嵌入Word文章,希望对楼主有用一、引言 Microsoft Office办公套件以其功能强大、方便实用而被广泛使用。我们可以使用自动化作为Word用以把其功能显露给其他应用的方式,采用这种方式可以尽可能少的占用自动化客户的资源,并且不需要被访问对象的类型信息就可以进行调用。 二、创建工程 以下是创建这个MFC应用程序的步骤: (1)使用AppWizard创建一个新的MFC AppWizard(EXE)工程,命名为"Embed_Word" (2)选择单文档视图(SDI)结构,在第3步中需要选中Container,以提供容器支持。 其它都为默认。在ClassView中将产生如下类: 应用类: CEmbed_WordApp in Embed_Word.h and Embed_Word.cpp 框架类: CMainFrame in MainFrm.h and MainFrm.cpp 文档类: CEmbed_WordDoc in Embed_WordDoc.h and Embed_WordDoc.cpp 视图类: CEmbed_WordView in Embed_WordView.h and Embed_WordView.cpp 容器类: CEmbed_WordCntrItem in CntrItem.h and CntrItem.cpp (3)在View菜单中,选ClassWizard,选Automation选项卡,选Add Class,选择From a TypeLibrary, 在Office目录中选中Microsoft Word 97/2000 类型库Word8.olb或Word9.olb,会将把类型库中的所有类添加到你的工程中。这时,ClassView中会多出几十个类,可以通过这些类提供的接口来实现必要的功能。 (4)在CCntrItem.h中添加获取标准COM接口IDispach的函数: LPDISPATCH GetIDispatch(); 其函数实现如下: LPDISPATCH CEmbed_WordCntrItem::GetIDispatch() { ASSERT_VALID(this); ASSERT(m_lpObject != NULL); LPUNKNOWN lpUnk = m_lpObject; Run(); LPOLELINK lpOleLink = NULL; if(m_lpObject->QueryInterface(IID_IOleLink,(LPVOID FAR*)&lpOleLink)== NOERROR){ ASSERT(lpOleLink != NULL); lpUnk = NULL; if(lpOleLink->GetBoundSource(&lpUnk) != NOERROR){ TRACE0("Warning: Link is not connected!\n"); lpOleLink->Release(); } ASSERT(lpUnk != NULL); } LPDISPATCH lpDispatch = NULL; if(lpUnk->QueryInterface(IID_IDispatch,(LPVOID FAR*)&lpDispatch) != NOERROR){ TRACE0("Waring: does not support IDispatch!\n"); return NULL; } ASSERT(lpDispatch != NULL); return lpDispatch; } 通过此函数来返回标准COM接口IDispatch。 (5)在Embed_WordView.cpp中添加对"MSWord8.h"的引用:#include "MSWord8.h",如使用Word2000,则包含对"MSWord9.h"的引用。 然后在视类CEmbed_WordView中添加函数EmbedAutomateExcel(): void CEmbed_WordView::EmbedAutomateWord() { BeginWaitCursor(); CEmbed_WordCntrItem* pItem = NULL; TRY{ CEmbed_WordDoc* pDoc = GetDocument(); ASSERT_VALID(pDoc); pItem = new CEmbed_WordCntrItem(pDoc); ASSERT_VALID(pItem); GetClientRect(&pItem->rect); CLSID clsid; if(FAILED(::CLSIDFromProgID(L"Word.document",&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(); } 如果仔细研究过这段代码,会发现它同AppWizard自动生成的OnInsertObject()函数有着惊人的相似程度,看一下View类中的 OnInsertObject() 方法,对其中的注释引起了我们的兴趣,因为它和我们刚写的方法有惊人的相似。事实上,我们刚才写的只不过是OnInsertObject()的一个特例:OnInsertObject()允许用户从可用的OLE对象列表中选择其一插入到应用程序中。因为在此我们只需对Word进行自动化,所以派生了这一行为。 (6)为了在程序刚启动时便将Word嵌入到程序中来,还需在视类的OnInitialUpdate()函数中添加代码: void CEmbed_WordView::OnInitialUpdate() { CView::OnInitialUpdate(); EmbedAutomateWord(); //将Word嵌入 m_pSelection = NULL; } (7)为了使嵌入的工作区占满整个客户区可以通过修改OnDraw函数来实现: void CEmbed_WordView::OnDraw(CDC* pDC) { CEmbed_WordDoc* pDoc = GetDocument(); ASSERT_VALID(pDoc); if (m_pSelection == NULL){ POSITION pos = pDoc->GetStartPosition(); m_pSelection = (CEmbed_WordCntrItem*)pDoc->GetNextClientItem(pos); } if (m_pSelection != NULL){ CRect rect; GetClientRect(&m_pSelection->rect); m_pSelection->OnGetItemPosition(rect); m_pSelection->Draw(pDC,rect); } } 三、编译执行 编译执行该程序,当程序启动时便会试图启动Word自动化服务,这时鼠标会处于等待状态,当鼠标恢复正常状态时,Word以经被嵌入到了程序中来,工具条和菜单上会多出许多Word上的工具条和菜单,并可以使用Word的这些功能来为我们服务。 我需要的是在对话框模式下嵌入WORD,楼上的好像是在窗体视图下显示有没有什么其它方法啊!谢谢! //创建EXCEL(用COM),取得其窗口,然后附着在你的对话上!!以EXCEL为例, if (mExcel->CreateDispatch("Excel.Application")) { mExcel->SetVisible(TRUE); mpExcelWnd = CWnd::FindWindow("XLMAIL", NULL); if (mpExcelWnd ) { mpExcelWnd->ShowWindow(SW_SHOWNORMAL); //也许还要用mpExcelWnd->ModifyWindow(...) SetWindowPos(....); mpExcelWnd->SetOwner(this); } mbExcelStarted=true; } http://support.microsoft.com/default.aspx?scid=kb;en-us;311765微软的例子,你看看,实现了你的功能 USB通讯 初学网络编程,没有思路啊~ 初学者请教,我想写个监视我网卡中经过的数据内容 关于日期的sql语句 初学VC,遇到了问题,请前辈们解惑 如何获得视图中当前光标所在的位置 UDP问题 DAO怎样一段一段的读数据?100分送 把程序图标添加到系统托盘后。。。 在一个空白的工作区里加入几个MFC工程后出现问题!!! 求一个简单的http server源代码.小妹在此谢过了.分不够再加 高分请教多个问题
从工程-》组件 中插入
没有 就自己创建 对象。
有个例子xoffice_src又运行不起来
各位帮帮忙,俺不太明白呢
另外的方法是OLE嵌入,我现在有一篇关于MFC嵌入Word文章,希望对楼主有用一、引言 Microsoft Office办公套件以其功能强大、方便实用而被广泛使用。我们可以使用自动化作为Word用以把其功能显露给其他应用的方式,采用这种方式可以尽可能少的占用自动化客户的资源,并且不需要被访问对象的类型信息就可以进行调用。
二、创建工程
以下是创建这个MFC应用程序的步骤: (1)使用AppWizard创建一个新的MFC AppWizard(EXE)工程,命名为"Embed_Word" (2)选择单文档视图(SDI)结构,在第3步中需要选中Container,以提供容器支持。 其它都为默认。在ClassView中将产生如下类: 应用类: CEmbed_WordApp in Embed_Word.h and Embed_Word.cpp 框架类: CMainFrame in MainFrm.h and MainFrm.cpp 文档类: CEmbed_WordDoc in Embed_WordDoc.h and Embed_WordDoc.cpp 视图类: CEmbed_WordView in Embed_WordView.h and Embed_WordView.cpp 容器类: CEmbed_WordCntrItem in CntrItem.h and CntrItem.cpp (3)在View菜单中,选ClassWizard,选Automation选项卡,选Add Class,选择From a TypeLibrary, 在Office目录中选中Microsoft Word 97/2000 类型库Word8.olb或Word9.olb,会将把类型库中的所有类添加到你的工程中。这时,ClassView中会多出几十个类,可以通过这些类提供的接口来实现必要的功能。 (4)在CCntrItem.h中添加获取标准COM接口IDispach的函数: LPDISPATCH GetIDispatch(); 其函数实现如下: LPDISPATCH CEmbed_WordCntrItem::GetIDispatch() { ASSERT_VALID(this); ASSERT(m_lpObject != NULL); LPUNKNOWN lpUnk = m_lpObject; Run(); LPOLELINK lpOleLink = NULL; if(m_lpObject->QueryInterface(IID_IOleLink,(LPVOID FAR*)&lpOleLink)== NOERROR){ ASSERT(lpOleLink != NULL); lpUnk = NULL; if(lpOleLink->GetBoundSource(&lpUnk) != NOERROR){ TRACE0("Warning: Link is not connected!\n"); lpOleLink->Release(); } ASSERT(lpUnk != NULL); } LPDISPATCH lpDispatch = NULL; if(lpUnk->QueryInterface(IID_IDispatch,(LPVOID FAR*)&lpDispatch) != NOERROR){ TRACE0("Waring: does not support IDispatch!\n"); return NULL; } ASSERT(lpDispatch != NULL); return lpDispatch; } 通过此函数来返回标准COM接口IDispatch。 (5)在Embed_WordView.cpp中添加对"MSWord8.h"的引用:#include "MSWord8.h",如使用Word2000,则包含对"MSWord9.h"的引用。 然后在视类CEmbed_WordView中添加函数EmbedAutomateExcel(): void CEmbed_WordView::EmbedAutomateWord() { BeginWaitCursor(); CEmbed_WordCntrItem* pItem = NULL; TRY{ CEmbed_WordDoc* pDoc = GetDocument(); ASSERT_VALID(pDoc); pItem = new CEmbed_WordCntrItem(pDoc); ASSERT_VALID(pItem); GetClientRect(&pItem->rect); CLSID clsid; if(FAILED(::CLSIDFromProgID(L"Word.document",&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(); } 如果仔细研究过这段代码,会发现它同AppWizard自动生成的OnInsertObject()函数有着惊人的相似程度,看一下View类中的 OnInsertObject() 方法,对其中的注释引起了我们的兴趣,因为它和我们刚写的方法有惊人的相似。事实上,我们刚才写的只不过是OnInsertObject()的一个特例:OnInsertObject()允许用户从可用的OLE对象列表中选择其一插入到应用程序中。因为在此我们只需对Word进行自动化,所以派生了这一行为。 (6)为了在程序刚启动时便将Word嵌入到程序中来,还需在视类的OnInitialUpdate()函数中添加代码: void CEmbed_WordView::OnInitialUpdate() { CView::OnInitialUpdate(); EmbedAutomateWord(); //将Word嵌入 m_pSelection = NULL; } (7)为了使嵌入的工作区占满整个客户区可以通过修改OnDraw函数来实现: void CEmbed_WordView::OnDraw(CDC* pDC) { CEmbed_WordDoc* pDoc = GetDocument(); ASSERT_VALID(pDoc); if (m_pSelection == NULL){ POSITION pos = pDoc->GetStartPosition(); m_pSelection = (CEmbed_WordCntrItem*)pDoc->GetNextClientItem(pos); } if (m_pSelection != NULL){ CRect rect; GetClientRect(&m_pSelection->rect); m_pSelection->OnGetItemPosition(rect); m_pSelection->Draw(pDC,rect); } }
三、编译执行
编译执行该程序,当程序启动时便会试图启动Word自动化服务,这时鼠标会处于等待状态,当鼠标恢复正常状态时,Word以经被嵌入到了程序中来,工具条和菜单上会多出许多Word上的工具条和菜单,并可以使用Word的这些功能来为我们服务。
有没有什么其它方法啊!谢谢!
if (mExcel->CreateDispatch("Excel.Application"))
{
mExcel->SetVisible(TRUE);
mpExcelWnd = CWnd::FindWindow("XLMAIL", NULL);
if (mpExcelWnd )
{
mpExcelWnd->ShowWindow(SW_SHOWNORMAL);
//也许还要用mpExcelWnd->ModifyWindow(...)
SetWindowPos(....);
mpExcelWnd->SetOwner(this);
}
mbExcelStarted=true;
}
微软的例子,你看看,实现了你的功能