使用MFC在应用程序中嵌入MS Word

下载本文示例代码
　　一、 引言　　Microsoft Office办公套件以其功能强大、方便实用而被广泛使用。我们可以使用自动化作为Word用以把其功能显露给其他应用的方式，采用这种方式可以尽可能少的占用自动化客户的资源，并且不需要被访问对象的类型信息就可以进行调用。 　　二、 创建工程　　以下是创建这个MFC应用程序的步骤： 　　（一）使用AppWizard创建一个新的MFC AppWizard(EXE)工程，命名为"Embed_Word" 　　（二）选择单文档视图(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 　 　　（三）在View菜单中，选ClassWizard,选Automation选项卡,选Add Class,选择From a TypeLibrary, 在Office目录中选中Microsoft Word 97/2000 类型库Word8.olb或Word9.olb，会将把类型库中的所有类添加到你的工程中。这时，ClassView中会多出几十个类，可以通过这些类提供的接口来实现必要的功能。　　（四）在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。　　（五）在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进行自动化，所以派生了这一行为。 　　（六）为了在程序刚启动时便将Word嵌入到程序中来，还需在视类的OnInitialUpdate()函数中添加代码： void CEmbed_WordView::OnInitialUpdate(){　CView::OnInitialUpdate();　EmbedAutomateWord(); //将Word嵌入　m_pSelection = NULL;}　　（七）为了使嵌入的工作区占满整个客户区可以通过修改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的这些功能来为我们服务。　　小结：　　通过这个例子我们可以对COM技术有初步的了解，也可以用类似的方法为程序添加其他服务，如Excel、PowerPoint等其他Office套件，使广大读者对自动化技术有基本的认识。 　　一、 引言　　Microsoft Office办公套件以其功能强大、方便实用而被广泛使用。我们可以使用自动化作为Word用以把其功能显露给其他应用的方式，采用这种方式可以尽可能少的占用自动化客户的资源，并且不需要被访问对象的类型信息就可以进行调用。 　　二、 创建工程　　以下是创建这个MFC应用程序的步骤： 　　（一）使用AppWizard创建一个新的MFC AppWizard(EXE)工程，命名为"Embed_Word" 　　（二）选择单文档视图(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 　 　　（三）在View菜单中，选ClassWizard,选Automation选项卡,选Add Class,选择From a TypeLibrary, 在Office目录中选中Microsoft Word 97/2000 类型库Word8.olb或Word9.olb，会将把类型库中的所有类添加到你的工程中。这时，ClassView中会多出几十个类，可以通过这些类提供的接口来实现必要的功能。　　（四）在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。　　（五）在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进行自动化，所以派生了这一行为。 　　（六）为了在程序刚启动时便将Word嵌入到程序中来，还需在视类的OnInitialUpdate()函数中添加代码： void CEmbed_WordView::OnInitialUpdate(){　CView::OnInitialUpdate();　EmbedAutomateWord(); //将Word嵌入　m_pSelection = NULL;}　　（七）为了使嵌入的工作区占满整个客户区可以通过修改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的这些功能来为我们服务。　　小结：　　通过这个例子我们可以对COM技术有初步的了解，也可以用类似的方法为程序添加其他服务，如Excel、PowerPoint等其他Office套件，使广大读者对自动化技术有基本的认识。 下载本文示例代码


使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word使用MFC在应用程序中嵌入MS Word