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

守柔

这个问题，我需要进一步测试一下，有些晕了，今天我到单位的机子上再做几个测试。

守柔

今天在单位的两台机子上测试：

WINXP+WORD2003，正确通过！

WINXP+WORDXP，正确通过！

提醒一下，请勿打开OUTLOOK，它会调用WORD作为邮件编辑器。

另外，想问一下，是每次运行WORD时，总是出现这个对话框（即运行2次），还是出现了“2次”的对话框后，再打开WORD，没有任何反应了呢？

tangcong

第一次和第2次都是正常运行的，但自第3次起就会一直出现“2次”的对话框

crossbrow

OUTLOOK没有用过，

第一次运行WORD时，出现“WORD程序今天被打开了1次”，

第二次运行WORD时，出现“WORD程序今天被打开了2次”，

第三次运行WORD时，出现“WORD程序今天被打开了2次”，

此后都是出现“WORD程序今天被打开了2次”。

守柔

QUOTE:

以下是引用crossbrow在2007-3-10 11:11:23的发言：
OUTLOOK没有用过，

第一次运行WORD时，出现“WORD程序今天被打开了1次”，

第二次运行WORD时，出现“WORD程序今天被打开了2次”，

第三次运行WORD时，出现“WORD程序今天被打开了2次”，

此后都是出现“WORD程序今天被打开了2次”。

中午在另一台WIN2000+WORDXP上运行，也完全正常。代码置于NORMAL.DOT的THISDOCUMENT代码窗口中,无需单击VBE中的保存命令,NORMAL.DOT具有自动保存功能.

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
        .SAVE
    End With
    MsgBox "Word程序被今天打开了" & oPenCount & "次!", vbInformation
End Sub

我加上这句.SAVE,请大家再测试一下,然后把结果告诉我.

crossbrow

QUOTE:

以下是引用守柔在2007-3-10 11:53:30的发言：

中午在另一台WIN2000+WORDXP上运行，也完全正常。代码置于NORMAL.DOT的THISDOCUMENT代码窗口中,无需单击VBE中的保存命令,NORMAL.DOT具有自动保存功能.

加上“SAVE”语句的程序测试时功能正常，

“代码置于NORMAL.DOT的THISDOCUMENT代码窗口中,无需单击VBE中的保存命令,NORMAL.DOT具有自动保存功能”，试了一下，我的电脑不可以自动保存。

谢谢，守柔斑竹的帮助!