如何嵌入并自动使用 MFC 的 Word 文档

而双击嵌入的文档以将其激活"编辑"或"打开"可以通过自动化来修改文档的嵌入在其他应用程序文档，使用嵌入的 OLE，模式。

本文演示如何嵌入和自动化的 MFC 单文档界面应用程序中的 Microsoft Office Word 文档。相同的方法适用于任何 Word 版本。不同之处在于不是什么版本的 Word 创建的文档中，但相反，哪个版本的 Word 中使用的自动化过程。

Word 类型库，如下所示：

• 对于 Microsoft Office Word 2007 中，类型库是 Msword.olb，且位于"C:\Program 数值 Office\Office12"文件夹中。
• 对于 Microsoft Office Word 2003，类型库是 Msword.olb，且位于"C:\Program 数值 Office\Office11"文件夹中。
• 对于 Microsoft Word 2002，类型库是 Msword.olb，且位于"C:\Program 数值 Office\Office10"文件夹中。
• 对于 Microsoft Word 2000 中，类型库是 Msword9.olb，且位于"C:\Program 数值网络"文件夹中。
• 对于 Microsoft Word 97 中，类型库是 Msword8.olb，且位于"C:\Program 数值网络"文件夹中

创建示例项目

1. 使用 Microsoft Visual Studio，启动一个名为EmbedWord的新 MFC 应用程序向导 (exe) 项目。在应用程序向导，在步骤 1 中选择"单文档"作为应用程序类型，并选择"容器"的步骤 3 中的复合文档支持类型。您可以接受其他所有默认设置。
2. 请按 CTRL + W 组合键以调用类向导。选择自动化选项单击添加类按钮，然后选择从类型库。浏览以查找 Word 类型库。
3. 在确认类对话框中，选择所有列出的成员，然后单击确定。
4. 再次单击确定以关闭类向导。
5. 修改 EmbedWordView.cpp，使它包括类向导从 Word 类型库生成的头文件。
   
   Word 2002 或更高版本的版本的 Word。

   #include "msword.h"
   

   Word 97 或 Word 2000。

   #include "msword9.h"
   	

6. CEmbedWordView::OnInsertObject()中的代码替换为以下：

   void CEmbedWordView::OnInsertObject()
   {
      EmbedAutomateWord();
   }
   					

7. 将CEmbedWordView::EmbedAutomateWord()成员函数添加到 EmbedWordView.cpp 中：

   void CEmbedWordView::EmbedAutomateWord()
   {
   
        /*******************************************************************
         This method encapsulates the process of embedding a Word document
         in a View object and automating that document to add text.
        *******************************************************************/ 
   
       //Change the cursor so the user knows something exciting is going
            //on.
            BeginWaitCursor();
   
            CEmbedWordCntrItem* pItem = NULL;
            TRY
            {
               //Get the document associated with this view, and be sure it's
               //valid.
               CEmbedWordDoc* pDoc = GetDocument();
               ASSERT_VALID(pDoc);
   
               //Create a new item associated with this document, and be sure
               //it's valid.
               pItem = new CEmbedWordCntrItem(pDoc);
               ASSERT_VALID(pItem);
   
               // Get Class ID for 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 the new CContainerItem is valid.
               ASSERT_VALID(pItem);
   
               // Launch 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 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 first line of the document
               _Document doc;
               Selection selection;
               _Application app;
               PageSetup pagesetup;
   
               _Font font;
   
               //set _Document doc to use lpDisp, the IDispatch* of the
               //actual document.
               doc.AttachDispatch(lpDisp);
               
               //Then get the document's application object reference.
               app = doc.GetApplication();
   
               // From there, get a Selection object for the insertion point.
               selection = app.GetSelection();
               selection.SetText(
                     "This is a good place to say \"Hello World\"");
   
               // Automate setting the values for various properties.
               font = selection.GetFont();
               font.SetName("Tahoma");
               font.SetSize(16);
               selection.SetFont(font);
            }
   
            //Here, you need to do 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. 打开 EmbedWordView.h 并添加到"实现"区域的这一新方法的声明：

      void EmbedAutomateWord();
   

9. 打开 CntrItem.cpp 并添加一个新的CEmbedWordCntrItem::GetIDispatch成员函数：

   LPDISPATCH CEmbedWordCntrItem::GetIDispatch()
   {	
   
        /****************************************************************
         This method returns the IDispatch* for the application linked to 
         this container.	
        *****************************************************************/ 
   
            //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 assuring yourself that it is valid, return the IDispatch
   
            //interface to the caller.
            ASSERT(lpDispatch != NULL);
            return lpDispatch;      
   }
   

10. 打开 CntrItem.h，然后将下面的声明添加到"实现"区域：

    LPDISPATCH GetIDispatch();
    

11. 在 CntrItem.cpp，将更改从CEmbedWordCntrItem::OnGetItemPosition中的代码的最后一行：

    rPosition.SetRect(10, 10, 210, 210);
    

    到：

    rPosition.SetRect(20, 20, 630, 420);
    

12. 按 F7 键以生成 EmbedWord.exe。然后按 CTRL + F5 运行应用程序的键组合。无标题-EmbedWord 框架在出现时单击在编辑 菜单上的 插入新对象。将出现新的嵌入的 Word 文档和 Word 菜单和 命令 按钮栏与该 EmbedWord 的菜单合并应用程序。
    
    您的代码嵌入新文档，添加至其中的文本设置字体和字体大小。