Microsoft Word 对象

Microsoft Word 对象(26)
用户可以通过使用CreateObject 或 GetObject函数来获得Automation对象。然后，通过使用另一个应用程序的对象、属性和方法，用户可以添加、更改或删除信息。当用户完成更改后，关闭应用程序。以下Word的示例判断Microsoft Excel是否正在运行。如果指定的Microsoft Excel任务存在，该示例使用GetObject函数；否则，它使用CreateObject函数。然后该示例将选定的文字传送给活动的Microsoft Excel工作簿里“工作表1”的A1单元格中。在任务完成以后，使用带有Nothing关键字的Set语句来清除Automation对象变量。

Dim xlObj As Excel. Application. 8

If Tasks.Exists ("Microsoft Excel") = True Then

Set xlObj = GetObject (, "Excel. Application. 8")

Else

Set xlObj = CreateObject ("Excel. Application. 8")

End If

xlObj. Visible = True

If xlobj. Workbooks. Count = 0 Then xlobj. Workbooks. Add

xlObj. Worksheets ("Sheet1").Range("A1").Value = Selection. Text

Set xlObj = Nothing

以下Word的示例判断Powerpoint是否正在运行。如果存在Powerpoint任务，那么该示例使用GetObject函数；否则，它使用CreateObject函数。然后该示例创建一个新演示文稿，文稿的第一个文本框包含活动Word文档的名称，第二个文本框包含活动文档第一段的文字。在任务完成后，使用带有Nothing关键字的Set语句来清除Automation对象变量。