Microsoft Word 对象(24) 下一步,声明一个引用Word Application对象的对象变量,如下例所示。Dim appWD As Word. Application. 8使用带有Word OLE程序标识符的Visual Basic CreateObject函数或GetObject函数,如下例所示。如果想看到Word时段,设置Visible属性为True(真)。Dim appWD As Word. Application. 8Set appWD = CreateObject ("Word. Application.8")appWd. Visible = TrueCreateObject函数返回一个Word Application对象,并且将它赋给appWD。通过使用Word Application对象的对象、属性和方法,用户可以用该变量对Word进行控制。以下的实例新建一个Word文档。appWd. Documents. AddCreateObject函数启动一个Word时段,当引用Application对象的对象变量失效时,该时段内的自动化不会关闭。设置该对象引用Nothing关键字也不会关闭Word。而是使用Quit方法来关闭Word。以下的Microsoft Excel示例把“工作表1”中A1:B10单元格里的数据插入到一个Word新文档中,然后调整表格中的数据。如果使用了CreateObject函数,则该示例使用Quit方法来关闭Word的新实例。如果GetObject函数返回错误429,那么该示例使用CreateObject来启动一个Word新实例。