科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件使用MFC在应用程序中嵌入MS Word

使用MFC在应用程序中嵌入MS Word

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

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

作者:青岛郎锐 来源:天极网 2007年10月17日

关键字: MFC 应用程序 MS Word

  • 评论
  • 分享微博
  • 分享邮件
摘要:这篇文章着重讲述了如何使用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;
   lpDisp = 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套件,使广大读者对自动化技术有基本的认识。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章