用VC写word文件方法[word学习]

欢迎您访问我爱IT技术网，今天小编为你分享的电脑教程是office系列之word教程：【用VC写word文件方法[word学习]】，下面是详细的分享！

用VC写word文件方法[word学习]

问题：您能给我介绍点用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(); 其函数实现如下：

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。
（5）在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进行自动化，所以派生了这一行为。
（6）为了在程序刚启动时便将Word嵌入到程序中来，还需在视类的OnInitialUpdate()函数中添加代码：

void   CEmbed_WordView:nInitialUpdate()           {           CView:nInitialUpdate();           EmbedAutomateWord();   //将Word嵌入           m_pSelection   =   NULL;           }    

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

void   CEmbed_WordView:nDraw(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);           }           }   

二：
在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()

其源码如下：

    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();                   return   NULL;                 }               ASSERT(lpUnk   !=   NULL);           }             LPDISPATCH   lpDispatch   =   NULL;         if   (lpUnk->QueryInterface(IID_IDispatch,   (LPVOID   FAR*)&lpDispatch)!=NOERROR)           {               TRACE0("Warning:   does   not   support   IDispatch!\n");               return   NULL;               }       ASSERT(lpDispatch   !=   NULL);         return   lpDispatch;      

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

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

BeginWaitCursor();             COfficeCntrItem*   pItem   =   NULL;       TRY       {           //   Create   new   item   connected   to   this   document.           COfficeDoc*   pDoc   =   GetDocument();           ASSERT_VALID(pDoc);           pItem   =   new   COfficeCntrItem(pDoc);           ASSERT_VALID(pItem);                 //   Initialize   the   item   from   the   dialog   data.                    CLSID   clsid;   //           if(FAILED(::CLSIDFromProgID(L"Word.document",&clsid)))               AfxThrowMemoryException();                   if(bOpenStatus) //如果是打开文档       {       if(!pItem->CreateFromFile   (sFilename,clsid))   //打开已有文档       AfxThrowMemoryException();         }       else //否则新建文档       {       if(!pItem->CreateNewItem(clsid))   //新建文档       AfxThrowMemoryException();         }         ASSERT_VALID(pItem);                       pItem->Activate   (OLEIVERB_SHOW,this);                                 ASSERT_VALID(pItem);                         m_pSelection   =   pItem;       //   set   selection   to   last   inserted   item           pDoc->UpdateAllViews(NULL);           //   As   an   arbitrary   user   interface   design,   this   sets   the   selection           //     to   the   last   item   inserted.                 //   TODO:   reimplement   selection   as   appropriate   for   your   application                 m_pSelection   =   pItem;       //   set   selection   to   last   inserted   item           pDoc->UpdateAllViews(NULL);       }       CATCH(CException,   e)       {           if   (pItem   !=   NULL)           {             ASSERT_VALID(pItem);             pItem->Delete();           }           AfxMessageBox(IDP_FAILED_TO_CREATE);       }       END_CATCH             EndWaitCursor();             （7）重载ID—FILE—SAVE，             void   COfficeView:nFileSave()         {       //   TODO:   Add   your   command   handler   code   here           TRY{                 LPDISPATCH   lpDisp;                       lpDisp   =   m_pSelection->GetIDispatch();                       Documents   docs;                     _Application   app;                       _Document   mydoc;           Documents   my;                 mydoc.AttachDispatch   (lpDisp,TRUE);           app=mydoc.GetApplication   ();                                mydoc.Activate   ();           BOOL   password=mydoc.GetHasPassword   ();           mydoc.SetPassword   ("love");           password=mydoc.GetHasPassword   ();               COleVariant   vFalse((short)FALSE);           mydoc.SaveAs   (COleVariant(filename),vFalse,vFalse,   COleVariant(""),vFalse,   //filename为一个以字符串表达的文件名   如"c:\\love1.doc"             COleVariant(""),vFalse,vFalse,vFalse,vFalse,vFalse);                 }       CATCH(CException,   e)       {                       }       END_CATCH       }             bulid,click   insert   object,and   edit   ,and   save.maybe   run   macro. 

以上就是关于用VC写word文件方法[word学习]的word教程分享，更多电脑教程请移步到>>电脑教程频道。