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