自动记录应用软件工作时间

含待检索对象的文件的全路径和名称。如果省略 pathname，则 class 是必需的。 class 代表该对象的类的字符串;class 参数的语法格式为 appname.objecttype，且语法的各个部分如下：

---- appname 必需的;Variant (String)。提供该对象的应用程序名称（我们用Word）。

---- objecttype 必需的;Variant (String)。待创建对象的类型或类（我们用Application）。

---- 使用 GetObject 函数可以访问文件中的 ActiveX 对象，而且可以将该对象赋给对象变量。可以使用 Set 语句将 GetObject 返回的对象赋给对象变量。例如将Word当前打开的文件对象赋给对象变量word：

---- Dim word As Object

---- Set word = GetObject(, “Word.Application”)

---- 注意：当对象当前已有实例，或要创建已加载的文件的对象时，就使用 GetObject 函数。

---- 如果对象当前还没有实例，或不想启动已加载文件的对象，则应使用 CreateObject 函数。

---- （3）ActiveDocument性质

---- ActiveDocument得到一个Active文挡（active document）的文件对象，语法是： object.ActiveDocument

---- 参数object表示一个应用对象，当进入这个应用对象的ActiveDocument性质，由于应用对象已经被隐含，因此可以省略这个应用对象而使用它的属性与方法。注意：对Excel，不用ActiveDocument而使用ActiveWorkBook。