在某一 Microsoft Office 应用程序中控制其他 Microsoft Office 应用程序

   

如果要在某一 Microsoft Office 应用程序中运行处理其他 Microsoft Office 应用程序中对象的代码，请按下列步骤进行。

  1. 在“引用”对话框（“工具”菜单）中设置对其他应用程序的类型库的引用。进行该操作之后，对象、属性和方法将显示在“对象浏览器”中，并且在编译时将检查语法。还可以获取这些对象、属性和方法的快捷帮助。
  2. 以特定的类型声明对象变量，该对象变量将引用其他应用程序中的对象。请确保用提供对象的应用程序的名称限定了每一个类型。例如，下列语句声明了指向 Microsoft Word 文档的变量和另一个指向 Microsoft Excel 工作簿的变量。 
    Dim appWD As Word.Application, wbXL As Excel.Workbook

    3. 注意   如果希望代码早被绑定，则必须遵循前面的步骤。

  3. 使用要在其他应用程序中处理的对象的 OLE 程序标识符作为参数来调用 CreateObject 函数，如下例所示。如果要查看相应的应用程序会话，请将 Visible 属性设置为 True。
    Dim appWD As Word.Application

Set appWD = CreateObject("Word.Application")
appWd.Visible = True

  4. 对包含在变量中的对象应用属性和方法。例如，下述指令创建新的 Word 文档。
    Dim appWD As Word.Application

Set appWD = CreateObject("Word.Application")
appWD.Documents.Add

  5. 对相应的应用程序处理结束后，用 Quit 方法将其关闭，如下例所示。
    appWd.Quit