从一个Office 程序控制另一个Office程序

如果要在一个 Office 应用程序中运行与另一个应用程序中的对象一起使用的代码, 请按照以下步骤操作。

一、在“引用”**** 对话框（VBA--工具  菜单）中，设置对其他应用程序的类型库的引用。 设置引用后，对象、属性和方法将显示在对象浏览器中，并且会在编译时检查语法。 此外，您还可以获得有关它们的快捷帮助。

例如：引用库：Microsoft PowerPoint 16.0 Object Library

二、将对象变量声明为特定类型，该对象变量将引用其他应用程序中的对象。 请确保使用提供对象的应用程序的名称限定每一个类型。 例如, 以下语句声明一个变量, 该变量将指向一个 Word 文档, 另一个引用 Excel 应用程序。

1. VB

2. Dim appWD As Word.Application, wbXL As Excel.Application

3. 备注

4. 如果您希望代码早期绑定, 则必须按照上面的步骤操作。

三、将 New 关键字与要在其他应用程序中使用的对象的 OLE 程序标识符一起使用，如以下示例所示。 如果要查看其他应用程序的会话，请将 Visible 属性设置为 True。

1. VB

2. Dim appWD As Word.Application  

3. Set appWD = New Word.Application  

4.  appWd.Visible = True

四、将属性和方法应用于包含在变量中的对象。 例如，下面的指令将创建一个 Word 文档。

1. VB

2. Dim appWD As Word.Application 

3. Set appWD = New Word.Application appWD.Documents.Add

五、结束对另一个应用程序的操作后，请使用 Quit 方法将其关闭，如以下示例所示。

VB

   appWd.Quit