software

Am using a wireless keyboard and would like to know when caps is on or off in
WORD. I notice that it appears in excel as well as NUM for number lock. I'm
working in Windows XP.

You may find that you get a better answer in an MSWord newsgroup.

(or just look at the light on the keyboard. I didn't see an indicator in
MSWord.)

disenchantedstar wrote:
gt;
gt; Am using a wireless keyboard and would like to know when caps is on or off in
gt; WORD. I notice that it appears in excel as well as NUM for number lock. I'm
gt; working in Windows XP.

--

Dave Peterson

Just remove the key, then if it does get invoked which shouldn't happen, but at least it
will happen less frequently. and you can then use a match stick sized tool
to restore it to non Caps.

--
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: www.mvps.org/dmcritchie/excel/excel.htm
Search Page: www.mvps.org/dmcritchie/excel/search.htm

quot;disenchantedstarquot; gt; wrote in message
...
gt; Am using a wireless keyboard and would like to know when caps is on or off in
gt; WORD. I notice that it appears in excel as well as NUM for number lock. I'm
gt; working in Windows XP.
I believe wireless keyboards has removed that light to conserve energy

--
Peo
Portland, Oregon

quot;Dave Petersonquot; gt; wrote in message
...
gt; You may find that you get a better answer in an MSWord newsgroup.
gt;
gt; (or just look at the light on the keyboard. I didn't see an indicator in
gt; MSWord.)
gt;
gt; disenchantedstar wrote:
gt;gt;
gt;gt; Am using a wireless keyboard and would like to know when caps is on or
gt;gt; off in
gt;gt; WORD. I notice that it appears in excel as well as NUM for number lock.
gt;gt; I'm
gt;gt; working in Windows XP.
gt;
gt; --
gt;
gt; Dave Peterson
Great suggestion, David!!!

Caps lock should be as inaccessible as scroll lock. I'm sick of
quot;shoutingquot; for most of a sentence just because I INADVERTENTLY TOUCHED
IT WHEN REACHING FOR THE SHIFT KEY. Drat ... did it again.

Can the caps lock be disabled in Excel or used for some other purpose?
Is there some utility which enables this?

David McRitchie Wrote:
gt; Just remove the key, then if it does get invoked which shouldn't
gt; happen, but at least it
gt; will happen less frequently. and you can then use a match stick sized
gt; tool
gt; to restore it to non Caps.
gt;--
John James
------------------------------------------------------------------------
John James's Profile: www.excelforum.com/member.php...oamp;userid=32690
View this thread: www.excelforum.com/showthread...hreadid=529440I've saved this from other posts--it includes other stuff, but also the
capslock.

Option Explicit
' Code from quot;VBA Developer's Handbookquot; (Sybex, 1997):
Private Declare Function GetKeyState Lib quot;user32quot; (ByVal nVirtKey As Long) _
As Integer
Private Declare Function GetKeyboardState Lib quot;user32quot; (pbKeyState As Byte) _
As Long
Private Declare Function SetKeyboardState Lib quot;user32quot; (lppbKeyState As Byte) _
As Long
Function GetCapslock() As Boolean
' Return or set the Capslock toggle
GetCapslock = CBool(GetKeyState(vbKeyCapital) And 1)
End Function
Function GetNumlock() As Boolean
' Return or set the Numlock toggle.
GetNumlock = CBool(GetKeyState(vbKeyNumlock) And 1)
End Function
Sub SetCapslock(Value As Boolean)
' Return or set the Capslock toggle.
Call SetKeyState(vbKeyCapital, Value)
End Sub
Sub SetNumlock(Value As Boolean)
' Return or set the Numlock toggle.
Call SetKeyState(vbKeyNumlock, Value)
End Sub
Private Sub SetKeyState(intKey As Integer, fTurnOn As Boolean)
Dim abytBuffer(0 To 255) As Byte
GetKeyboardState abytBuffer(0)
abytBuffer(intKey) = CByte(Abs(fTurnOn))
SetKeyboardState abytBuffer(0)
End Sub
Sub Caps_on()
If GetCapslock = False Then Call SetKeyState(vbKeyCapital, True)
End Sub
Sub Caps_Off()
If GetCapslock = True Then Call SetKeyState(vbKeyCapital, False)
End Sub
Sub auto_open()
Application.OnKey quot;{CAPSLOCK}quot;, quot;TurnItOffquot;
End Sub
Sub auto_close()
Application.OnKey quot;{CAPSLOCK}quot;
End Sub
Sub TurnItOff()
If GetCapslock = True Then
Call SetKeyState(vbKeyCapital, False)
Beep
End If
End Sub

If you create a workbook with this code in it, then the auto_open procedure will
run and turn off the capslock whenever you click it.

If the OP is new to macros, then the OP can read David McRitchie's intro at:
www.mvps.org/dmcritchie/excel/getstarted.htm

ps. There's another option you may like better (I would).

Go to windows control panel|Accessibility options|keyboard tab
Turn on the ToggleKeys option.

You'll hear a beep when you hit capslock, numlock, or scrolllock.John James wrote:
gt;
gt; Great suggestion, David!!!
gt;
gt; Caps lock should be as inaccessible as scroll lock. I'm sick of
gt; quot;shoutingquot; for most of a sentence just because I INADVERTENTLY TOUCHED
gt; IT WHEN REACHING FOR THE SHIFT KEY. Drat ... did it again.
gt;
gt; Can the caps lock be disabled in Excel or used for some other purpose?
gt; Is there some utility which enables this?
gt;
gt; David McRitchie Wrote:
gt; gt; Just remove the key, then if it does get invoked which shouldn't
gt; gt; happen, but at least it
gt; gt; will happen less frequently. and you can then use a match stick sized
gt; gt; tool
gt; gt; to restore it to non Caps.
gt; gt;
gt;
gt; --
gt; John James
gt; ------------------------------------------------------------------------
gt; John James's Profile: www.excelforum.com/member.php...oamp;userid=32690
gt; View this thread: www.excelforum.com/showthread...hreadid=529440

--

Dave Peterson

So I guess that looking at the keyboard wouldn't be too effective lt;bggt;.

Peo Sjoblom wrote:
gt;
gt; I believe wireless keyboards has removed that light to conserve energy
gt;
gt; --
gt; Peo
gt;
gt; Portland, Oregon
gt;
gt; quot;Dave Petersonquot; gt; wrote in message
gt; ...
gt; gt; You may find that you get a better answer in an MSWord newsgroup.
gt; gt;
gt; gt; (or just look at the light on the keyboard. I didn't see an indicator in
gt; gt; MSWord.)
gt; gt;
gt; gt; disenchantedstar wrote:
gt; gt;gt;
gt; gt;gt; Am using a wireless keyboard and would like to know when caps is on or
gt; gt;gt; off in
gt; gt;gt; WORD. I notice that it appears in excel as well as NUM for number lock.
gt; gt;gt; I'm
gt; gt;gt; working in Windows XP.
gt; gt;
gt; gt; --
gt; gt;
gt; gt; Dave Peterson

--

Dave Peterson


Dave, you're a champ!!

This is a great solution. As long as there is sufficient volume, this
seems to work in all circumstances in all applications. Solves
disenchantedstar's wireless keyboard CAPS LOCK problem and my separate
problem as well. This option should be activated by default on windows
installation, but that's another issue.

Many thanksDave Peterson Wrote:
gt;
gt; Go to windows control panel|Accessibility options|keyboard tab
gt; Turn on the ToggleKeys option.
gt;
gt; You'll hear a beep when you hit capslock, numlock, or scrolllock.
gt; Dave Peterson--
John James
------------------------------------------------------------------------
John James's Profile: www.excelforum.com/member.php...oamp;userid=32690
View this thread: www.excelforum.com/showthread...hreadid=529440Only if you want to conserve your energy lt;bggt;

--

PeoPortland, Oregon

quot;Dave Petersonquot; gt; wrote in message
...
gt; So I guess that looking at the keyboard wouldn't be too effective lt;bggt;.
gt;
gt; Peo Sjoblom wrote:
gt;gt;
gt;gt; I believe wireless keyboards has removed that light to conserve energy
gt;gt;
gt;gt; --
gt;gt; Peo
gt;gt;
gt;gt; Portland, Oregon
gt;gt;
gt;gt; quot;Dave Petersonquot; gt; wrote in message
gt;gt; ...
gt;gt; gt; You may find that you get a better answer in an MSWord newsgroup.
gt;gt; gt;
gt;gt; gt; (or just look at the light on the keyboard. I didn't see an indicator
gt;gt; gt; in
gt;gt; gt; MSWord.)
gt;gt; gt;
gt;gt; gt; disenchantedstar wrote:
gt;gt; gt;gt;
gt;gt; gt;gt; Am using a wireless keyboard and would like to know when caps is on or
gt;gt; gt;gt; off in
gt;gt; gt;gt; WORD. I notice that it appears in excel as well as NUM for number
gt;gt; gt;gt; lock.
gt;gt; gt;gt; I'm
gt;gt; gt;gt; working in Windows XP.
gt;gt; gt;
gt;gt; gt; --
gt;gt; gt;
gt;gt; gt; Dave Peterson
gt;
gt; --
gt;
gt; Dave PetersonIt's one of the first things I do when I (try to) help someone--whether they
want it or not!

John James wrote:
gt;
gt; Dave, you're a champ!!
gt;
gt; This is a great solution. As long as there is sufficient volume, this
gt; seems to work in all circumstances in all applications. Solves
gt; disenchantedstar's wireless keyboard CAPS LOCK problem and my separate
gt; problem as well. This option should be activated by default on windows
gt; installation, but that's another issue.
gt;
gt; Many thanks
gt;
gt; Dave Peterson Wrote:
gt; gt;
gt; gt; Go to windows control panel|Accessibility options|keyboard tab
gt; gt; Turn on the ToggleKeys option.
gt; gt;
gt; gt; You'll hear a beep when you hit capslock, numlock, or scrolllock.
gt; gt; Dave Peterson
gt;
gt; --
gt; John James
gt; ------------------------------------------------------------------------
gt; John James's Profile: www.excelforum.com/member.php...oamp;userid=32690
gt; View this thread: www.excelforum.com/showthread...hreadid=529440

--

Dave Peterson