摘要：这篇文章着重讲述了如何使用MFC将Microsoft Word嵌入到应用程序中的方法。对在VC下使用类型库和COM技术也做了简要阐述。

　　关键字：VC++、MFC、COM、自动化

　　一、 引言

　　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;
　　　l