当我打开word然后打开我的测试文档时,以下代码按预期工作。但是,如果我打开测试文档以启动Word的第一个实例,则计时器将在Word加载时启动。 Word然后坐在加载,直到计时器用完,文档关闭,打开一个空Word应用程序。预期的操作是开放文件;如果闲置设定时间,请保存并关闭文件。
我有共享文档的用户,并且有一个坏习惯,即在打开doc的情况下锁定他们的计算机,将文件锁定在编辑它的任何其他人身上。 这样做的目的是保存文件并在x时间后关闭文档。
Private Sub Document_open()
StartCheckingIdle
End Sub
下面的TIMEOUTTIME设置为5秒进行测试,但是将其设置为5分钟,如果在双击要打开的文档之前Word未打开,则文档正处于加载状态5分钟。
Option Explicit
'Set the constant below for how long you want it to be idle before triggering
' Enter the time in hours:minutes:seconds form, like "00:30:00" for 30 minutes
Private Const TIMEOUTTIME As String = "00:00:05"
Private Declare Function GetQueueStatus Lib "user32" (ByVal fuFlags As Long) As Long
Private Const QS_KEY = &H1
Private Const QS_MOUSEMOVE = &H2
Private Const QS_MOUSEBUTTON = &H4
Private Const QS_MOUSE = (QS_MOUSEMOVE Or QS_MOUSEBUTTON)
Private Const QS_INPUT = (QS_MOUSE Or QS_KEY)
Private bCancel As Boolean
Private Sub WaitForIdle()
Dim t As Double
t = Now
Do While bCancel = False
If GetQueueStatus(QS_INPUT) Then
t = Now
DoEvents
End If
If Now - t >= TimeValue(TIMEOUTTIME) Then Exit Do
Loop
End Sub
Public Sub StartCheckingIdle()
Do Until bCancel
WaitForIdle
If bCancel = False Then
bCancel = True
ThisDocument.Close True
End If
Do Until GetQueueStatus(QS_INPUT) Or bCancel
DoEvents
Loop
Loop
End Sub
Public Sub StopCheckingIdle()
bCancel = True
End Sub
目前正在尝试使用Word文档,但最终还需要将其应用于excel文件。 是的,我在这里从另一个问题中挖掘了这个代码,尽管我认为它可能会略显过时。我正在运行Office 2010。
答案 0 :(得分:0)
可能会首先尝试在文档中检查活动窗口。
Private Sub Document_Open()
Do While Application.ActiveWindow.Active = False
DoEvents
Loop
MsgBox "Open"
End Sub