摘要：這篇文章著重講述了如何使用MFC將Microsoft Word嵌入到應用程序中的方法。對在VC下使用類型庫和COM技術也做了簡要闡述。
關鍵字：VC++、MFC、COM、自動化
一、 引言
Microsoft Office辦公套件以其功能強大、方便實用而被廣泛使用。我們可以使用自動化作為Word用以把其功能顯露給其他應用的方式，采用這種方式可以盡可能少的占用自動化客戶的資源，并且不需要被訪問對象的類型信息就可以進行調用。
二、 創(chuàng)建工程
以下是創(chuàng)建這個MFC應用程序的步驟：
（一）使用AppWizard創(chuàng)建一個新的MFC AppWizard(EXE)工程，命名為"Embed_Word"
（二）選擇單文檔視圖(SDI)結構，在第3步中需要選中Container,以提供容器支持。 其它都為默認。在ClassView中將產(chǎn)生如下類：
應用類: 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中會多出幾十個類，可以通過這些類提供的接口來實現(xiàn)必要的功能。
（四）在CCntrItem.h中添加獲取標準COM接口IDispach的函數(shù)：
LPDISPATCH GetIDispatch(); 其函數(shù)實現(xiàn)如下：
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;
}
通過此函數(shù)來返回標準COM接口IDispatch。
（五）在Embed_WordView.cpp中添加對"MSWord8.h"的引用：#include "MSWord8.h"，如使用Word2000,則包含對"MSWord9.h"的引用。 然后在視類CEmbed_WordView中添加函數(shù)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();
}
如果仔細研究過這段代碼，會發(fā)現(xiàn)它同AppWizard自動生成的OnInsertObject()函數(shù)有著驚人的相似程度，看一下View類中的 OnInsertObject() 方法，對其中的注釋引起了我們的興趣，因為它和我們剛寫的方法有驚人的相似。事實上，我們剛才寫的只不過是OnInsertObject()的一個特例：OnInsertObject()允許用戶從可用的OLE對象列表中選擇其一插入到應用程序中。因為在此我們只需對Word進行自動化，所以派生了這一行為。
（六）為了在程序剛啟動時便將Word嵌入到程序中來，還需在視類的OnInitialUpdate()函數(shù)中添加代碼：
void CEmbed_WordView::OnInitialUpdate()
{
CView::OnInitialUpdate();
EmbedAutomateWord(); //將Word嵌入
m_pSelection = NULL;
}
（七）為了使嵌入的工作區(qū)占滿整個客戶區(qū)可以通過修改OnDraw函數(shù)來實現(xiàn)：
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);
}
}
三、 編譯執(zhí)行
編譯執(zhí)行該程序，當程序啟動時便會試圖啟動Word自動化服務，這時鼠標會處于等待狀態(tài)，當鼠標恢復正常狀態(tài)時，Word以經(jīng)被嵌入到了程序中來，工具條和菜單上會多出許多Word上的工具條和菜單，并可以使用Word的這些功能來為我們服務。
小結：
通過這個例子我們可以對COM技術有初步的了解，也可以用類似的方法為程序添加其他服務，如Excel、PowerPoint等其他Office套件，使廣大讀者對自動化技術有基本的認識。