求助：如何统计WORD在一天内打开的次数？

crossbrow

求助：如何统计WORD在一天内打开的总次数？

请守柔斑竹及各位前辈赐教！

谢谢！

守柔

QUOTE:

以下是引用crossbrow在2007-3-8 15:21:44的发言：

求助：如何统计WORD在一天内打开的总次数？

请守柔斑竹及各位前辈赐教！

谢谢！

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-3-8 17:35:26
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0176^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub AutoExec()
    Dim oPenCount As Integer, oVariable As Variable, TF As Boolean
    With ThisDocument
        For Each oVariable In .Variables
            If oVariable.Name = "myVariable" Then TF = True: Exit For
        Next
        If TF = False Then
            .Variables.Add Name:="myVariable", Value:=oPenCount
            .Variables.Add Name:="Today", Value:=VBA.Format(Now, "yyyy-M-D")
        End If
        If VBA.Format(Now, "yyyy-M-D") <> .Variables("Today") Then
            .Variables("myVariable").Value = 0
            .Variables("Today").Value = VBA.Format(Now, "yyyy-M-D")
        End If
        oPenCount = .Variables("myVariable").Value + 1
        .Variables("myVariable").Value = oPenCount
    End With
    MsgBox "Word程序被今天打开了" & oPenCount & "次!", vbInformation
End Sub
'----------------------

注意：请将以上代码请粘贴于NORMAL.DOT的THISDOCUMENT代码窗口或者标准模块中。

crossbrow

感谢守柔斑竹的回答，赶紧去试试，呵呵[em17]

tangcong

TO:守柔版主

为什么MsgBox弹出的结果总是“Word程序被今天打开了2次”，就不再增加了？

[此贴子已经被作者于2007-3-9 12:22:21编辑过]

crossbrow

守柔版主，我试后发现正如 tangcong 所说。[em06]

sylun

又一次学到variables对象。刚才参照帮助文件反复学习，勉强看懂了老大的代码，发现在后面加上一个save语句可实现，只是不知其所以然，而且好像不会自动打开空白文档，实在太抽象了。

[此贴子已经被作者于2007-3-9 17:00:34编辑过]

守柔

QUOTE:

以下是引用crossbrow在2007-3-9 12:42:09的发言：
守柔版主，我试后发现正如 tangcong 所说。[em06]

这是我的测试：

理论上说，代码应该没有问题。请告诉我你的测试方法和WORD版本，谢谢。

守柔

QUOTE:

以下是引用sylun在2007-3-9 16:47:32的发言：

又一次学到variables对象。刚才参照帮助文件反复学习，勉强看懂了老大的代码，发现在后面加上一个save语句可实现，只是不知其所以然，而且好像不会自动打开空白文档，实在太抽象了。

TO sylun兄：

AUTOEXEC宏用于在每次运行WORD程序时自动触发，而非打开文档时，打开文档时，可以使用AutoOpen宏等。

WORD Normal.dot将在关闭时自动保存，无需加上SAVE命令。

有关自动宏，您可以参看拙著之P341之的讲解与实例，便于理解。

variables对象是应用于Document对象的一个对象，实际上你可以当成是一个储存内容的“字典”，它具有词条名和词条目吧，它随文档保存而保存。

sylun

我用的两台电脑都是office2003 sp2（非正版），其中一台现象与前面两位说的相同，也是只统计到第2次就停下来了，加了save命令后就可继续统计下去，删除后又不行了。原是加在end with前，不能自动打开新文档，后加在msgbox后面就可以了。今晚试了另一台电脑却没有此现象，可以正常统计。本来两台电脑的word设置都差不多的，以前都用相同的用户设置文件，只是前面一台最近重装系统，下载2003sp2升级包升级，并根据原设置重新设置normal模板。如果不是设置问题，也许是下午的操作上有问题。一般理解，既然可以统计第2次就表示原程序起作用，应该可以统计下去的。

谢谢老大的指点。小弟目前正在学习VBA基础，想先多了解点VBE再说，否则操作起来都不顺手，希望能早点入门。

再补充一点，现在想来，下午操作时，在改动代码后（将save命令变为注释文字），如不在VBE中按保存即关闭word，再启动时发现代码修改无效，当然也没有提示保存。

[此贴子已经被作者于2007-3-9 22:59:45编辑过]

crossbrow

守柔版主，单位里有以下两电脑，代码粘贴于NORMAL.DOT的THISDOCUMENT代码窗口：

WINDOWS2000+OFFICE2003就不行  ；

XP+OFFICE2003也不行；

不过，家中XP+OFFICE2003可以；真是奇怪。