'WordIgnoreCapsOff.vbs
'Alan dot Kaplan at VA dot Gov, 6/10/2009
'This flags the Ignore Caps for spell checking off one time

Set wshShell = WScript.CreateObject("WScript.Shell")
'Create a marker in HKCU
Const strKey = "HKCU\Software\MyStuff\Office 2007\CapsOff"
const strWordCheck = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WINWORD.EXE\path"

On Error Resume Next
strReval = WshShell.RegRead(strWordCheck)
If Err <> 0 Then  WScript.Quit	'Quit, Word not installed

strReval = WshShell.RegRead(strKey)
If Err = 0 Then 				'Quit, Found the marker entry, so it has run once before
	WScript.Quit
Else
	Err.Clear
	Set oWord = CreateObject("Word.Application")
	oWord.Options.IgnoreUppercase = False
	oWord.Application.Quit		'Just to be sure
	Set oWord = Nothing 
	wshShell.RegWrite strKey , "Off", "REG_SZ"	'Write marker
End If