如何使用 MFC 检索 Office 文档中的宏名称的列表

心已赠人 2022-08-24 05:26 31阅读 0赞

**如何使用 MFC 检索 Office 文档中的宏名称的列表**

本文介绍如何创建 MFC 自动化客户端检索 for Applications (VBA) 的 Visual Basic 列表的示例从 Microsoft Office 文档的宏 （ **Sub** 和 **Function** 过程）。

要获取 Microsoft Excel 中的 VBA 过程的列表工作簿、 Microsoft PowerPoint 演示文稿或 Microsoft Word 文档，可以使用类和函数公开由 Microsoft Visual Basic for Applications 扩展性库与应用程序对象模型。 当打开文档时使用自动化时，可以访问循环访问集合 **VBComponents** 文档的 **VBProject** 对象 ； **VBComponents** 集合包含标准模块，以及在项目中包含的类模块。 后对 **VBComponent** 引用可以检索其属性 （包括代码），并需要操作该组件。  
  
**请注意** 特殊的考虑，Microsoft Access： Microsoft Access 是一个例外，在 Visual Basic for Applications 扩展性库不需要访问数据库项目中的代码。 Microsoft Access 对象模型公开方法或直接访问代码模块允许您的属性。 有关检索或操作与在 Access 数据库模块代码警告之一是必须先打开该模块。  
  
以下步骤演示如何创建一个 MFC 自动化客户端从 Office 文档中检索的 **Sub** 和 **Function** 过程列表。 示例代码阐释如何使用 Office 应用程序类型库和 Visual Basic for Applications 扩展性库的类包装 ； 该示例还提供了特殊的案例考虑，对于 Microsoft Access 数据库。

### 示例项目 ###

1.  在 Visual C++，创建命名 ListMacros 一个新的 **MFC AppWizard EXE** 项目。 选择 **对话框基于** 作为类型，然后接受所有其他默认值。
2.  在 **视图** 菜单中上, 单击 **ClassWizard** 。 在 **ClassWizard** 对话框单击 **自动化** 选项卡，然后执行下列操作：
    
     *  单击 **添加类** 并选择 **从类型库** 。
     *  浏览到找到 Microsoft Visual Basic for Applications Extensibility 类型库 (VBE6EXT.olb)，，然后单击 **打开** 。  
          
        **请注意** VBE6EXT.olb 在默认文件夹是 C:/Program Files /Common Files /Microsoft Shared/VBA/VBA6。
     *  在类型库中选择所有类，然后单击 **确定** 以创建类包装。
3.  重复上述步骤创建 Microsoft Excel、 Microsoft PowerPoint、 Microsoft Access 和 Microsoft Word 类型库的类包装。 选择正确的类型库在自动化的 Office 的版本。 请参见本文以获取有关查找正确的类型库的信息后面，"参考一节。
4.  若要避免类名称冲突，请请为每个类包装通过执行以下添加命名空间：
    
     *  将以下代码添加到 Excel9.h 的开头：
        
        `namespace Excel{`
        
        ，然后添加结转大括号 (\}) 文件的末尾。
     *  将以下代码添加到显示"\# endif"（不带引号） 的行下方的 Excel9.cpp，开头之前在第一个类的定义：
        
        `using namespace Excel;`
5.  重复这些步骤以创建剩余的命名空间： **MSWord** 、 **PPT** 、 **MSAccess** 和 **VBAExt** 。
6.  单击 **ResourceView** 并打开 **IDD\_LISTMACROS\_DIALOG** 对话框。 删除所有控件，对话框上绘制其替换为以下控件：
    
        Control Type     Properties
           ------------     -------------------------
        
           Button           ID:           ID_Run
                            Caption:      Run
        
           Edit Box         ID:           IDC_FILENAME
        
           List Box         ID:           IDC_MACROLIST
                            Use Tabstops: Checked
7.  在 **视图** 菜单上单击 **ClassWizard** ，选择 **成员变量** 选项卡，在 **类名称** 下拉列表框中中, 选择 **CListMacrosDlg** ，然后执行下列操作：
    
     *  在控件列表上双击 **IDC\_FILENAME** 。 在 **添加成员变量** 对话框提供在变量名 **m\_sFilename** ，然后单击 **确定** 。
     *  在控件列表上双击 **IDC\_MACROLIST** 。 在 **添加成员变量** 对话框提供变量名 **m\_MacroList** 、 **控制** ，更改该 **类别** ，然后单击 **确定** 。
8.  单击 **确定** 以关闭 **ClassWizard** 对话框。
9.  双击 **运行** 按钮在对话框。 单击要添加成员函数 **OnRun** **确定** 。 将以下代码添加到 **CListMacrosDlg::OnRun()** ：
    
    `void CListMacrosDlg::OnRun() 
 {
    USES_CONVERSION;
 
    UpdateData(TRUE);
 
 
    COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR); //for Optional args
 
    //Determine the PROGID for the filename supplied
    CLSID clsid;
    HRESULT hr = GetClassFile(T2OLE(m_sFilename), &clsid);
    if (FAILED(hr))
    {
       CString sMsg;
       sMsg.Format("Unable to determine progid for file: %s", m_sFilename);
       AfxMessageBox(sMsg);
       return;
    }
 
    LPOLESTR lpOleStr;
    ProgIDFromCLSID(clsid, &lpOleStr);
    CString sProgID = CString(lpOleStr);
    sProgID.MakeUpper();
    
    //If the version independent progid is EXCEL.SHEET, WORD.DOCUMENT, or
    //POWERPOINT.SHOW, then open the file in its associated application.
    //Once the file is open, call GetMacros to place the list of macro
    //names in the list box.
 
    if(sProgID.Find("EXCEL.SHEET",0)>=0)  //Microsoft Excel Workbook
    {
       Excel::_Application oApp;
       oApp.CreateDispatch("Excel.Application");
       Excel::Workbooks oBooks = oApp.GetWorkbooks();
       Excel::_Workbook oBook = oBooks.Open(m_sFilename, vOpt, vOpt, vOpt, 
                                            vOpt, vOpt, vOpt, vOpt, vOpt, 
                                            vOpt, vOpt, vOpt, vOpt);
       LPDISPATCH lpDisp = oBook.GetVBProject();
       GetMacros(lpDisp);
       oBook.Close(COleVariant((short)FALSE), vOpt, vOpt);
       oApp.Quit();
    }
 
    else if(sProgID.Find("WORD.DOCUMENT",0)>=0)    //Microsoft Word Document
    {
       MSWord::_Application oApp;
       oApp.CreateDispatch("Word.Application");
       MSWord::Documents oDocs = oApp.GetDocuments();
       MSWord::_Document oDoc = oDocs.Open(COleVariant(m_sFilename), vOpt,
                                           vOpt, vOpt, vOpt, vOpt, vOpt, 
                                           vOpt, vOpt, vOpt, vOpt, vOpt);
 	   // For Office Word 2003 and Office Word 2007, 16 parameters are required.
     /*  MSWord::_Document oDoc = oDocs.Open(COleVariant(m_sFilename), vOpt,
                                           vOpt, vOpt, vOpt, vOpt, vOpt, 
                                           vOpt, vOpt, vOpt, vOpt, vOpt,
 		                              								  vOpt,vOpt,vOpt,vOpt);
     */
       LPDISPATCH lpDisp = oDoc.GetVBProject();
       GetMacros(lpDisp);
       oDoc.Close(COleVariant((short)FALSE), vOpt, vOpt);
       oApp.Quit(vOpt, vOpt, vOpt);
    }
 
    else if(sProgID.Find("POWERPOINT.SHOW",0)>=0)  //Microsoft PowerPoint
 
                                                   //Presentation
    {
       PPT::_Application oApp;
       oApp.CreateDispatch("Powerpoint.Application");
       PPT::Presentations oAllPres = oApp.GetPresentations();
       PPT::_Presentation oPres = oAllPres.Open(m_sFilename, 0, 0, 0);
       LPDISPATCH lpDisp = oPres.GetVBProject();
       GetMacros(lpDisp);
       oPres.Close();
       oApp.Quit();
    }
 
    else if(sProgID.Find("ACCESS.APPLICATION", 0)>=0)  //Microsoft Access DB
 
    {   //** Special Consideration for Access Code Project
 
        MSAccess::_Application oApp;
        oApp.CreateDispatch("Access.Application");
        MSAccess::DoCmd oDoCmd = oApp.GetDoCmd();
        oApp.OpenCurrentDatabase(m_sFilename, FALSE);
        // For Office Access 2003 and Office Access 2007, 3 parameters are required.
        /*oApp.OpenCurrentDatabase(m_sFilename, FALSE,NULL);*/
 
        MSAccess::_CurrentProject oProj = oApp.GetCurrentProject();
        MSAccess::AllObjects oObjs = oProj.GetAllModules();
 
        CString sModName, sProcName, sItem;
        long lProcKind = 0;
        for(long i=0;i<=oObjs.GetCount()-1;i++)
        {
           MSAccess::AccessObject oObj = oObjs.GetItem(COleVariant(i));
           sModName = oObj.GetName();
           //Module must be open:
           oDoCmd.OpenModule(COleVariant(sModName), vOpt);
           MSAccess::Modules oMods = oApp.GetModules();
           MSAccess::Module oMod = oMods.GetItem(COleVariant(sModName));
           long lLineCount = oMod.GetCountOfLines();
           long j=1;
           while(j<lLineCount)
           {
              sProcName = oMod.GetProcOfLine(j, &lProcKind);
              if(!sProcName.IsEmpty()){
                 sItem.Format("%s/t/t%s", sModName, sProcName);
                 m_MacroList.AddString(sItem);
                 j = j + oMod.GetProcCountLines(sProcName, lProcKind); }
              else {
                 j++;    }
           }
        }
 
        oApp.Quit(0);
    }
 
    else  //Other...
    {
       CString sMsg;
       sMsg.Format("Unable to extract macro names for files with progid %s",
                   sProgID);
       AfxMessageBox(sMsg);
    }
 
 }`
10. 添加以下包括 ListMacrosDlg.cpp：
    
    `#include <afxpriv.h>
 #include "Excel9.h" // for Office Excel 2003 and later, use #include "Excel.h"
 #include "MSWord9.h" // for Office Word 2003 and later, use #include "MSWord.h"
 #include "MSPPT9.h"  // for Office Powerpoint 2003 and later, use #include "msppt.h"
 #include "MSAcc9.h" // for Office Access 2003 and later, use #include "msacc.h"
 #include "VBE6Ext.h"`
11. 单击 **ClassView** 选项 Right-click **CListMacrosDlg** 并选择 **添加成员函数** 。 提供 *void* ， **函数类型** ， *GetMacros(LPDISPATCH lpDisp)* 为 **函数声明** 中，选择 **专用** ，然后单击 **确定** 。 将以下代码添加 **CListMacrosDlg::GetMacros** ：
    
    `void CListMacrosDlg::GetMacros(LPDISPATCH lpDisp)
 {
    long i, j; //counters
 
    //Clear the list box and set the tab stops
    j=m_MacroList.GetCount();
    for (i=j-1;i>=0;i--){
       m_MacroList.DeleteString(i);}
    m_MacroList.SetTabStops(50);
 
    //Iterate the collection of components in the VBA project
    //referenced by lpDisp.
    VBAExt::_VBProject oVBProj;
    oVBProj.AttachDispatch(lpDisp, TRUE);
    VBAExt::_VBComponents oVBComps = oVBProj.GetVBComponents();
    long lCompCount = oVBComps.GetCount();
    long lLineCount;
    long lProcKind = 0;
    VBAExt::_VBComponent oVBComp;
    VBAExt::_CodeModule oCode;
 
    for(i=1; i<=lCompCount; i++)
    {
       oVBComp = oVBComps.Item(COleVariant(i));
       oCode = oVBComp.GetCodeModule();
 
       //If the component contains any lines of code, then
       //retrieve the name of each procedure (Functions and Subs)
       //add it to the list box along with the module name.
       CString sProcName, sItem;
       lLineCount = oCode.GetCountOfLines();
       j=1;
       while(j<lLineCount)
       {
          sProcName = oCode.GetProcOfLine(j, &lProcKind);
          if(!sProcName.IsEmpty()){
             sItem.Format("%s/t/t%s", oVBComp.GetName(), sProcName);
             m_MacroList.AddString(sItem);
             j = j + oCode.GetProcCountLines(sProcName, lProcKind); }
          else {
             j++;    }
       }
    }
 }`
12. 将下面的代码行添加到在 ListMacros.cpp **CListMacrosApp::InitInstance()** 的开头：
    
    `AfxOleInit();`
13. 生成项目并运行它。 选择一个文件 （.xls、.doc、.mdb 或.ppt） 包含宏，然后单击 **运行** 。 宏的列表将显示在列表框。

**其他注意事项**

*  此示例所示的代码检索仅的 **Sub** 和 **Function** 过程。 如果想要检索 **Property Get** 、 **Property Let** ，或 **Property Set** 过程，您必须修改代码。 **ProcOfLine** 的第二个参数可以是下列之一 （该代码示例使用它等效于 **vbext\_pk\_Proc** 的 0）：
    
        Constant        Value     Description
        -------------   -----     ------------------------------------------------
        vbext_pk_Get    3         Procedure that returns the value of a property 
        vbext_pk_Let    1         Procedure that assigns a value to a property
        
        vbext_pk_Set    2         Procedure that sets a reference to an object 
        vbext_pk_Proc   0         All procedures other than property procedures
 *  如果 VBA 模块受密码保护，将显示要求输入密码，对话框。 如果您不知道密码，程序不能列出这些过程。
 *  **打开** （和 **OpenCurrentDatabase** ) 方法，上述示例中的用于 Office 2000 类型库。 Office XP 类型库有要传递给这些方法的其他参数。 请参见在"参考"部分的其他信息。

### 自动化 Microsoft Office XP 的说明 ###

[224925][] (http://support.microsoft.com/kb/224925/ ) INFO： 用于 Office 类型库可能会更改与新版本

Office XP 应用程序具有允许以编程方式访问 VBA 对象模型一个安全选项。 如果此设置是"关"（默认），您可能会收到错误运行上述示例代码。 有关此设置以及可以在如何纠正该错误的其他信息，单击下面的文章编号，以查看 Microsoft 知识库中的文章：

[282830][] (http://support.microsoft.com/kb/282830/ ) PRB： 编程访问到 Office XP VBA 项目被拒绝

有关其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应：

[266387][] (http://support.microsoft.com/kb/266387/ ) 如何查找和列表访问 VBA 过程使用 MFC

[194906][] (http://support.microsoft.com/kb/194906/ ) 如何添加和运行 VBA 宏使用从 MFC 的自动化

##### 这篇文章中的信息适用于: #####

*  Microsoft Office Word 2007
 *  Microsoft Office Word 2003
 *  Microsoft Word 2002 标准版
 *  Microsoft Word 2000 标准版
 *  Microsoft Office PowerPoint 2007
 *  Microsoft Office PowerPoint 2003
 *  Microsoft PowerPoint 2002 标准版
 *  Microsoft PowerPoint 2000 标准版
 *  Microsoft Office Excel 2007
 *  Microsoft Excel 2002 标准版
 *  Microsoft Excel 2000 标准版
 *  Microsoft Office Access 2007
 *  Microsoft Office Access 2003
 *  Microsoft Access 2002 标准版
 *  Microsoft Access 2000 标准版
 *  Microsoft Visual C++ 6.0 专业版
 *  Microsoft Foundation Class Library 4.2

[224925]: http://support.microsoft.com/kb/224925/
[282830]: http://support.microsoft.com/kb/282830/
[266387]: http://support.microsoft.com/kb/266387/
[194906]: http://support.microsoft.com/kb/194906/