how to disable spelling and grammar checking???

[mlbasso]

I need to disable Spelling and Grammar checking in Word XP on 90 computers at the Middle School where I work. Students will be taking a state exam and it is required to be disabled. I am looking for the fastest way. I use ZenWorks for Desktops but it does not have such an option. I finally figured I will visit every computer and uninstall Proofing tools from Add/remove programs. However, it will not allow me to remove spelling and grammar checking. It says "uninstall completed successfully" but when I go back to Add/Remove it is still there. How the heck can it be disabled?????!!!! Is there a regstry hack???

 

[fumei]

You can remove spellcheck as a menu item.

You can overwrite the spellcheck command.

Bit of pain though if you have to do that for 60 machines. Can you distribute a standard normal.dot to them? If so, make the changes in that.

Gerry

 

[byundt]

Here is some code that disable the spelling and grammar checker on the Tools menu, the context sensitive menu if you right-click some text and the squiggly lines under mispelled words or grammar. I have not figured out how to disable the F7 key permanently--the NoF7 sub appears to toggle the feature on and off. The RestoreShortcuts sub turns the features back on.

It is worth noting that an enterprising student can do the spellchecking in Excel or Powerpoint. Those applications aren't affected by putting the suggested code in the ThisDocument section of normal.dot

Sub autoexec()
Application.Documents.Add

NoF7
NoChecking
End Sub

Sub Document_New()
NoChecking
End Sub

Sub Document_Open()
NoChecking
End Sub

Sub NoChecking()
Dim kb As KeyBinding
CommandBars("Tools").Controls(1).Enabled = False
CommandBars("Grammar").Enabled = False
CommandBars("Grammar").Enabled = False
CommandBars("Grammar (2)").Enabled = False
CommandBars("Text").Enabled = False

On Error Resume Next
ActiveDocument.ShowSpellingErrors = False
ActiveDocument.ShowGrammaticalErrors = False
On Error GoTo 0
End Sub

Sub NoF7()
Dim kb As KeyBinding

On Error Resume Next
Set kb = KeyBindings(wdKeyF7)
On Error GoTo 0

If kb Is Nothing Then
    KeyBindings.Add wdKeyCategoryDisable, "Spelling and Grammar...", wdKeyF7
Else
    KeyBindings(wdKeyF7).Disable
End If

End Sub

Sub RestoreShortcuts()
Dim kb As KeyBinding
CommandBars("Tools").Controls(1).Enabled = True
CommandBars("Grammar").Enabled = True
CommandBars("Grammar").Enabled = True
CommandBars("Grammar (2)").Enabled = True
CommandBars("Text").Enabled = True
ActiveDocument.ShowSpellingErrors = True
ActiveDocument.ShowGrammaticalErrors = True

On Error Resume Next
Set kb = KeyBindings(wdKeyF7)
On Error GoTo 0
If kb Is Nothing Then
    KeyBindings.Add wdKeyCategoryDisable, "Spelling and Grammar...", wdKeyF7
Else
    KeyBindings(wdKeyF7).Disable
End If
End Sub

Brad

 

[TonyJollans]

If the students have access to the VBE they can turn it back on so I wouldn't think, personally, that it would stisfy the condition for being disabled.

Personally I would just delete the dictionaries. I just tried renaming the Program Files\Common Files\Microsoft Shared\PROOF folder (which effectively removes the dictionaries from Word's grasp) and it seemed to do the job.

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[

 

[fumei]

Ah Tony.....

Besides, simply rewriting the Sub to start spelling to be empty is a lot easier than doing all that code. It would also disable F7. Much easier.

However, to really do it, I would follow Tony's suggestion.

Gerry