pDisp = 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套件，使广大读者对自动化技术有基本的认识。