使用单文档视图结构把Word嵌入到VC程序中

(使用VC6+Office2003)

1.用向导创建MFC应用程序.

2.选择单或多文档,并在复合文档类型中选择container(容器)

3.添加关于word的引用－打开ClassWinszrd的AddClass的from a type library. 选择C:/Program Files/Microsoft Office/OFFICE11下的msword.olb(为方便，把所有对象都选上)

4.修改CntrItem.h文件中类声明的继承父类，由默认的 COleClientItem 改为 COleDocObjectItem

5.为C×××CntrItem添加下面共有成员函数

public:

LPDISPATCH GetIDispatch();

实现如下:

LPDISPATCH C×××CntrItem::GetIDispatch()

{

//The this and m_lpObject pointers must be valid for this function
//to work correctly. The m_lpObject is the IUnknown pointer to
// this object.
ASSERT_VALID(this);
ASSERT(m_lpObject != NULL);
LPUNKNOWN lpUnk = m_lpObject;
//The embedded application must be running in order for the rest
//of the function to work.
Run();
//QI for the IOleLink interface of m_lpObject.
LPOLELINK lpOleLink = NULL;
if (m_lpObject->QueryInterface(IID_IOleLink,(LPVOID FAR*)&lpOleLink) == NOERROR){
ASSERT(lpOleLink != NULL);
lpUnk = NULL;
//Retrieve the IUnknown interface to the linked application.
if(lpOleLink->GetBoundSource(&lpUnk) != NOERROR){
TRACE0("Warning: Link is not connected!/n");
lpOleLink->Release();
return NULL;
}
ASSERT(lpUnk != NULL);
}
//QI for the IDispatch interface of the linked application.
LPDISPATCH lpDispatch = NULL;
if(lpUnk->QueryInterface(IID_IDispatch, (LPVOID FAR*)&lpDispatch)!=NOERROR){
TRACE0("Warning: does not support IDispatch!/n");
return NULL;
}
//After you verify that it is valid, return the IDispatch
//interface to the caller.
ASSERT(lpDispatch != NULL);
return lpDispatch;

}

6.修改×××View.cpp文件中函数OnInitialUpdate()为

void C×××View::OnInitialUpdate()

{

CView::OnInitialUpdate();

// TODO: remove this code when final selection model code is written

m_pSelection = NULL; // initialize selection

EmbedAutomateWord();

}

7.为C×××View.cpp增加下面公有函数

public:

void EmbedAutomateWord();

实现如下:

void C×××View::EmbedAutomateWord()

{

//Change the cursor so that the user knows that something exciting is going
//on.
BeginWaitCursor();
C×××CntrItem* pItem = NULL;
TRY{
//Get the document that is associated with this view, and be sure that it is
//valid.
C×××Doc* pDoc = GetDocument();
ASSERT_VALID(pDoc);
//Create a new item associated with this document, and be sure that it is
//valid.
pItem = new C×××CntrItem(pDoc);
ASSERT_VALID(pItem);
// Get the Class ID for the Word document.
// This is used in creation.
CLSID clsid;
if(FAILED(::CLSIDFromProgID(L"Word.document",&clsid)))
//Any exception will do. You just need to break out of the
//TRY statement.
AfxThrowMemoryException();
// Create the Word embedded item.
if(!pItem->CreateNewItem(clsid))
//Any exception will do. You just need to break out of the
//TRY statement.
AfxThrowMemoryException();
//Make sure that the new CContainerItem is valid.
ASSERT_VALID(pItem);
// Start the server to edit the item.
pItem->DoVerb(OLEIVERB_SHOW, this);
// As an arbitrary user interface design, this sets the
// selection to the last item inserted.
m_pSelection = pItem; // Set selection to the last inserted item.
pDoc->UpdateAllViews(NULL);
//Query for the dispatch pointer for the embedded object. In
//this case, this is the Word document.
LPDISPATCH lpDisp;
lpDisp = pItem->GetIDispatch();
//Add text to the embedded Word document.
// CDocument wdDoc;
// CRange wdRange;
//set CDocument0 wdDoc to use lpDisp, the IDispatch* of the
//actual document.
// wdDoc.AttachDispatch(lpDisp);
//Get a CRange object for the document.
//wdRange = wdDoc.Range(COleVariant( (long)DISP_E_PARAMNOTFOUND, VT_ERROR ),
// COleVariant( (long)DISP_E_PARAMNOTFOUND, VT_ERROR ) );
//Fill the range with the string "Hello, World!"
//wdRange.put_Text( "Hello, World!" );
//wdRang.
}
//Clean up if something went wrong.
CATCH(CException, e){
if(pItem != NULL){
ASSERT_VALID(pItem);
pItem->Delete();
}
AfxMessageBox(IDP_FAILED_TO_CREATE);
}
END_CATCH
//Set the cursor back to normal so the user knows exciting stuff
//is no longer happening.
EndWaitCursor();

}

8.编译运行.