MS字

时间:2018-01-23 20:33:14

标签: vba ms-word word-vba

当我打开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。

1 个答案:

答案 0 :(得分:0)

可能会首先尝试在文档中检查活动窗口。

Private Sub Document_Open()
    Do While Application.ActiveWindow.Active = False
        DoEvents
    Loop
    MsgBox "Open"
End Sub