Reposting the code since the spacing was garbled:

If IsNumLocked = 0 Then
  NumLockOn
End If

Function NumLockOn()
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
End Function

Function IsNumLocked()
Dim oWrd
Dim bWrdOff
bWrdOff = False
 On Error Resume Next
Set oWrd = GetObject(, "Word.Application")
If Err Then
   Err.Clear
   Set oWrd = CreateObject("Word.Application")
   bWrdOff = True
End If
IsNumLocked = oWrd.Numlock
If bWrdOff Then
   oWrd.Application.Quit True
End If
End Function







On Thursday, May 22, 2008 at 2:28 pm, Chris O. wrote:

>Here's another version of the VBS script I cobbled together.
 

• Reply or follow-up to this message

• Search this forum
• Start a new thread on a different subject

• Report abuse of the forum