全部显示

在一个 Microsoft Office 应用程序中控制另一个 Microsoft Office 应用程序

如果要在一个 Microsoft Office 应用程序中运行使用另一个应用程序中对象的代码，请遵循下列步骤：

1. 在“引用”对话框（“工具”菜单）中，设置对其他应用程序的类型库的引用。设置引用后，对象、属性和方法将显示在对象浏览器中并且将在编译时检查语法。此外，您还可以获得有关它们的快捷帮助。
2. 将对象变量声明为特定类型，该对象变量将引用其他应用程序中的对象。请确保在声明变量时一定要使用提供对象的应用程序的名称。例如，下面的语句声明一个指向 Microsoft Word 文档的变量和一个指向 Microsoft Excel 应用程序的变量。

Dim appWD As Word.Application, wbXL As Excel.Application
   
   注意  如果希望代码及早绑定，必须执行上述步骤。
3. 将 New 关键字和要使用的其他应用程序中对象的 OLE 程序标识符 联合使用，如以下示例所示。如果要显示其他应用程序的会话过程，请将 Visible 属性设为 True。

Dim appWD As Word.Application

Set appWD = New Word.Application
appWd.Visible = True
4. 将属性和方法应用于包含在变量中的对象。例如，下面的指令将新建一个 Word 文档。

Dim appWD As Word.Application

Set appWD = New Word.Application
appWD.Documents.Add
5. 结束对这个应用程序的操作后，请使用 Quit 方法将其关闭，如以下示例所示。

appWd.Quit