首页 > > 软件技巧 > Word >

用VC写word文件方法

2018-06-21 02:27:24来源：未知 阅读 ()

新老客户大回馈,云服务器低至5折

问题：您能给我介绍点用Visual C++ 动态生成WORD文档资料吗？给个例子代码什么的。

解答：
一：

以下是创建这个MFC应用程序的步骤：
（1）使用AppWizard创建一个新的MFC   AppWizard(EXE)工程，命名为"Embed_Word"
（2）选择单文档视图(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
（3）在View菜单中，选ClassWizard,选Automation选项卡,选Add   Class,选择From   a   TypeLibrary,   在Office目录中选中Microsoft   Word   97/2000   类型库Word8.olb或Word9.olb，会将把类型库中的所有类添加到你的工程中。这时，ClassView中会多出几十个类，可以通过这些类提供的接口来实现必要的功能。
（4）在CCntrItem.h中添加获取标准COM接口IDispach的函数：   
      
  LPDISPATCH   GetIDispatch();   其函数实现如下：      
 

  1. LPDISPATCH   CEmbed_WordCntrItem::GetIDispatch()     
  2.       
  3. {     
  4.       
  5. ASSERT_VALID(this);     
  6.       
  7. ASSERT(m_lpObject   !=   NULL);     
  8.       
  9. LPUNKNOWN   lpUnk   =   m_lpObject;     
  10.       
  11. Run();     
  12.       
  13. LPOLELINK   lpOleLink   =   NULL;     
  14.       
  15. if(m_lpObject->QueryInterface(IID_IOleLink,(LPVOID   FAR*)&lpOleLink)==   NOERROR)     
  16.       
  17. {     
  18.       
  19. ASSERT(lpOleLink   !=   NULL);     
  20.       
  21. lpUnk   =   NULL;     
  22.       
  23. if(lpOleLink->GetBoundSource(&lpUnk)   !=   NOERROR)     
  24.       
  25. {     
  26.       
  27. TRACE0("Warning:   Link   is   not   connected!\n");     
  28.       
  29. lpOleLink->Release();     
  30.       
  31. }     
  32.       
  33. ASSERT(lpUnk   !=   NULL);     
  34.       
  35. }     
  36.       
  37. LPDISPATCH   lpDispatch   =   NULL;     
  38.       
  39. if(lpUnk->QueryInterface(IID_IDispatch,(LPVOID   FAR*)&lpDispatch)   !=   NOERROR)     
  40.       
  41. {     
  42.       
  43. TRACE0("Waring:   does   not   support   IDispatch!\n");     
  44.       
  45. return   NULL;     
  46.       
  47. }     
  48.       
  49. ASSERT(lpDispatch   !=   NULL);     
  50.       
  51. return   lpDispatch;     
  52.       
  53. }    

通过此函数来返回标准COM接口IDispatch。
（5）在Embed_WordView.cpp中添加对"MSWord8.h"的引用：#include   "MSWord8.h"，如使用Word2000,则包含对"MSWord9.h"的引用。   然后在视类CEmbed_WordView中添加函数EmbedAutomateExcel()

  1. void   CEmbed_WordView::EmbedAutomateWord()     
  2.       
  3. {     
  4.       
  5. BeginWaitCursor();     
  6.       
  7. CEmbed_WordCntrItem*   pItem   =   NULL;     
  8.       
  9. TRY     
  10.       
  11. {     
  12.       
  13. CEmbed_WordDoc*   pDoc   =   GetDocument();     
  14.       
  15. ASSERT_VALID(pDoc);     
  16.       
  17. pItem   =   new   CEmbed_WordCntrItem(pDoc);     
  18.       
  19. ASSERT_VALID(pItem);     
  20.       
  21. GetClientRect(&pItem->rect);     
  22.       
  23. CLSID   clsid;     
  24.       
  25. if(FAILED(::CLSIDFromProgID(L"Word.document",&clsid)))     
  26.       
  27. AfxThrowMemoryException();     
  28.       
  29. if(!pItem->CreateNewItem(clsid))     
  30.       
  31. AfxThrowMemoryException();     
  32.       
  33. ASSERT_VALID(pItem);     
  34.       
  35. pItem->DoVerb(OLEIVERB_SHOW,   this);     
  36.       
  37. m_pSelection   =   pItem;     
  38.       
  39. pDoc->UpdateAllViews(NULL);     
  40.       
  41. LPDISPATCH   lpDisp;     
  42.       
  43. lpDisp   =   pItem->GetIDispatch();     
  44.       
  45. }     
  46.       
  47. CATCH(CException,   e)     
  48.       
  49. {     
  50.       
  51. if   (pItem   !=   NULL)     
  52.       
  53. {     
  54.       
  55. ASSERT_VALID(pItem);     
  56.       
  57. pItem->Delete();     
  58.       
  59. }     
  60.       
  61. AfxMessageBox(IDP_FAILED_TO_CREATE);     
  62.       
  63. }     
  64.       
  65. END_CATCH     
  66.       
  67. EndWaitCursor();     
  68.       
  69. }    

如果仔细研究过这段代码，会发现它同AppWizard自动生成的OnInsertObject()函数有着惊人的相似程度，看一下View类中的   OnInsertObject()   方法，对其中的注释引起了我们的兴趣，因为它和我们刚写的方法有惊人的相似。事实上，我们刚才写的只不过是OnInsertObject()的一个特例：OnInsertObject()允许用户从可用的OLE对象列表中选择其一插入到应用程序中。因为在此我们只需对Word进行自动化，所以派生了这一行为。
（6）为了在程序刚启动时便将Word嵌入到程序中来，还需在视类的OnInitialUpdate()函数中添加代码：

  1. void   CEmbed_WordView:nInitialUpdate()     
  2.       
  3. {     
  4.       
  5. CView:nInitialUpdate();     
  6.       
  7. EmbedAutomateWord();   //将Word嵌入     
  8.       
  9. m_pSelection   =   NULL;     
  10.       
  11. }    

（7）为了使嵌入的工作区占满整个客户区可以通过修改OnDraw函数来实现：
 

  1. void   CEmbed_WordView:nDraw(CDC*   pDC)     
  2.       
  3. {     
  4.       
  5. CEmbed_WordDoc*   pDoc   =   GetDocument();     
  6.       
  7. ASSERT_VALID(pDoc);     
  8.       
  9. if   (m_pSelection   ==   NULL)     
  10.       
  11. {     
  12.       
  13. POSITION   pos   =   pDoc->GetStartPosition();     
  14.       
  15. m_pSelection   =   (CEmbed_WordCntrItem*)pDoc->GetNextClientItem(pos);     
  16.       
  17. }     
  18.       
  19. if   (m_pSelection   !=   NULL)     
  20.       
  21. {     
  22.       
  23. CRect   rect;     
  24.       
  25. GetClientRect(&m_pSelection->rect);     
  26.       
  27. m_pSelection->OnGetItemPosition(rect);     
  28.       
  29. m_pSelection->Draw(pDC,rect);     
  30.       
  31. }     
  32.       
  33. }   

二：
在VC中调用WORD（显示，修改，存盘，运行宏）
（1）使用AppWizard创建一个新的MFC   AppWizard(EXE)工程，命名为"office"
（2）选择单文档视图(SDI)结构，在第3步中需要选中Container,以提供容器支持,并且选中active   document   container   其它都为默认
（3）在View菜单中，选ClassWizard,选Automation选项卡,选Add   Class,选择From   a   TypeLibrary,   在Office目录中选中Microsoft   Word   97/2000   类型库Word8.olb或Word9.olb，选中application,document,_document。单击ok
(4)给COfficeCntrItem添加一Public方法。LPDISPATCH   GetIDispatch()

其源码如下：
 

  1.     ASSERT_VALID(this);         
  2. ASSERT(m_lpObject   !=   NULL);           
  3. LPUNKNOWN   lpUnk   =   m_lpObject;           
  4. Run();           
  5. LPOLELINK   lpOleLink   =   NULL;         
  6. if   (m_lpObject->QueryInterface(IID_IOleLink,   (LPVOID   FAR*)&lpOleLink)   ==   NOERROR)           
  7. {           
  8.     ASSERT(lpOleLink   !=   NULL);           
  9.     lpUnk   =   NULL;                   
  10.     if   (lpOleLink->GetBoundSource(&lpUnk)   !=   NOERROR)             
  11.     {             
  12.       TRACE0("Warning:   Link   is   not   connected!\n");             
  13.       lpOleLink->Release();             
  14.       return   NULL;             
  15.     }           
  16.     ASSERT(lpUnk   !=   NULL);           
  17. }             
  18. LPDISPATCH   lpDispatch   =   NULL;         
  19. if   (lpUnk->QueryInterface(IID_IDispatch,   (LPVOID   FAR*)&lpDispatch)!=NOERROR)           
  20. {       
  21.         TRACE0("Warning:   does   not   support   IDispatch!\n");           
  22.     return   NULL;       
  23.         
  24. }       
  25. ASSERT(lpDispatch   !=   NULL);         
  26. return   lpDispatch;      

（5）。在officeView.h添加#include   "msword8.h"   //如果是Word2000则为#include   "msword9.h"

（6）。修改void   COfficeView:nInsertObject()，源码如下：
 

  1. BeginWaitCursor();     
  2.       
  3.   COfficeCntrItem*   pItem   =   NULL;     
  4.   TRY     
  5.   {     
  6.       //   Create   new   item   connected   to   this   document.     
  7.       COfficeDoc*   pDoc   =   GetDocument();     
  8.       ASSERT_VALID(pDoc);     
  9.       pItem   =   new   COfficeCntrItem(pDoc);     
  10.       ASSERT_VALID(pItem);     
  11.       
  12.       //   Initialize   the   item   from   the   dialog   data.     
  13.   /*   if   (!dlg.CreateItem(pItem))     
  14.         AfxThrowMemoryException();     //   any   exception   will   do     
  15.       ASSERT_VALID(pItem);*/     
  16.         CLSID   clsid;   //     
  17.       if(FAILED(::CLSIDFromProgID(L"Word.document",&clsid)))       
  18.         AfxThrowMemoryException();       
  19.           
  20.   if(bOpenStatus) //如果是打开文档     
  21.   {     
  22.   if(!pItem->CreateFromFile   (sFilename,clsid))   //打开已有文档     
  23.   AfxThrowMemoryException();       
  24.   }     
  25.   else //否则新建文档     
  26.   {     
  27.   if(!pItem->CreateNewItem(clsid))   //新建文档     
  28.   AfxThrowMemoryException();       
  29.   }       
  30.   ASSERT_VALID(pItem);       
  31.           
  32.       pItem->Activate   (OLEIVERB_SHOW,this);     
  33.           
  34.       
  35.       
  36.       ASSERT_VALID(pItem);     
  37.                     m_pSelection   =   pItem;       //   set   selection   to   last   inserted   item     
  38.       pDoc->UpdateAllViews(NULL);     
  39.       //   As   an   arbitrary   user   interface   design,   this   sets   the   selection     
  40.       //     to   the   last   item   inserted.     
  41.       
  42.       //   TODO:   reimplement   selection   as   appropriate   for   your   application     
  43.       
  44.       m_pSelection   =   pItem;       //   set   selection   to   last   inserted   item     
  45.       pDoc->UpdateAllViews(NULL);     
  46.   }     
  47.   CATCH(CException,   e)     
  48.   {     
  49.       if   (pItem   !=   NULL)     
  50.       {     
  51.         ASSERT_VALID(pItem);     
  52.         pItem->Delete();     
  53.       }     
  54.       AfxMessageBox(IDP_FAILED_TO_CREATE);     
  55.   }     
  56.   END_CATCH     
  57.       
  58.   EndWaitCursor();     
  59.       
  60.   （7）重载ID—FILE—SAVE，     
  61.       
  62.   void   COfficeView:nFileSave()       
  63.   {     
  64.   //   TODO:   Add   your   command   handler   code   here     
  65.       TRY{     
  66.             LPDISPATCH   lpDisp;       
  67.           
  68.       lpDisp   =   m_pSelection->GetIDispatch();       
  69.       
  70.           Documents   docs;     
  71.           
  72.       _Application   app;       
  73.           
  74.       _Document   mydoc;     
  75.       Documents   my;     
  76.       
  77.       mydoc.AttachDispatch   (lpDisp,TRUE);     
  78.       app=mydoc.GetApplication   ();     
  79.           /*       app.Run   ("Macro3");*/     
  80.             mydoc.Activate   ();     
  81.       BOOL   password=mydoc.GetHasPassword   ();     
  82.       mydoc.SetPassword   ("love");     
  83.       password=mydoc.GetHasPassword   ();         
  84.       COleVariant   vFalse((short)FALSE);     
  85.       mydoc.SaveAs   (COleVariant(filename),vFalse,vFalse,   COleVariant(""),vFalse,   //filename为一个以字符串表达的文件名   如"c:\\love1.doc"     
  86.         COleVariant(""),vFalse,vFalse,vFalse,vFalse,vFalse);     
  87.           
  88.   }     
  89.   CATCH(CException,   e)     
  90.   {     
  91.                   }     
  92.   END_CATCH     
  93.   }     
  94.       
  95.   bulid,click   insert   object,and   edit   ,and   save.maybe   run   macro. 

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有

上一篇：『Word2007技巧』了解有关 OpenDocument 格式的详细信息

下一篇：WORD中怎么才能既有下拉选项又能自由输入

相关文章

IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设

网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源

网站联盟： 联盟新闻 联盟介绍 联盟点评 网赚技巧

行业资讯： 搜索引擎 网络游戏 电子商务 广告传媒

网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它

服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护

软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷

网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash

程序设计： Java技术 C/C++ VB delphi

网络知识： 网络协议 网络安全 网络管理 组网方案 Cisco技术

操作系统： Win2000 WinXP Win2003 Mac OS Linux FreeBSD

热门词条
最新资讯
热门关注
热门标签